' Allgemein
Dim LocatState As Integer
Dim WithEvents Msn As MsgrObject
 
Private Sub Command1_Click()
 ' auf Busy setzen
 Msn.LocalState = MSTATE_BUSY
End Sub
 
Private Sub Form_Load()
 Set Msn = New MsgrObject
End Sub