Sub Form_Paint ()
    Label1.Caption = WaitMessage
End Sub

