vba11-5.txt

AO的原代码,都是以TXT的文件写的,对你肯定有帮助的.这些都是 我的心血啊.

Public Sub ShowWaitMouseCursor()
  Dim pMouseCursor As IMouseCursor
  Dim lngIndex As Long
  
  Set pMouseCursor = New MouseCursor
  pMouseCursor.SetCursor 2
  For lngIndex = 0 To 10000
    Application.StatusBar.Message(0) = _
    "Loop counter: " & lngIndex
  Next lngIndex
End Sub