This example displays a status box that changes during a wait. Because a title bar is included, the status box can be moved during the wait.

Sub DisplayStatusDialogBox ()

Dim i as Integer

With Session

 'Display a status box, updating the text during a wait.

 For i = 1 to 10

  .StatusBox "Seconds remaining: " & str$(11 - i), rcStatusBoxTitleBar

  .Wait "1", rcAllowKeystrokes

 Next i


 'Close the Status Box.


End With

End Sub