vba11-5.txt

来自「本书给出了AO的常用的VAB代码 可能是初学者很好的一本参考书」· 文本 代码 · 共 12 行

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