ステータスバーに処理中...の.を流れるように表示する

＜分類：ステータスバー制御＞
＜使用例：ステータスバーに処理中...を表示する。ステータスバー表示時間間隔はパラメータで調整可能現在10000000で設定＞
＜プログラム例＞

Sub 使用例()
   Dim i As Long

   Application.StatusBar = False

   For i = 1 To 50
      Call ステータスバー表示(10000000)
   Next i

End Sub

Sub ステータスバー表示(p1)
  'p1:待ち時間制御
   
   Dim i As Long
    
  '待ち時間制御
   For i = 1 To p1
   Next i
    
   If Left(Application.StatusBar, 3) = "処理中" Then
      Application.StatusBar = Application.StatusBar & "."
   Else
      Application.StatusBar = "処理中" & "."
   End If
End Sub