Option Explicit
Private WithEvents oclsTstEvent As clsTstEvent
 
Private Sub Command1_Click()
   oclsTstEvent.Asl_Event
End Sub
 
Private Sub oclsTstEvent_MyEvent(myTxt As String)
 MsgBox (myTxt)
End Sub
 
Private Sub Form_Load()
 Set oclsTstEvent = New clsTstEvent
 oclsTstEvent.txtEvent = "EventMessages"
End Sub
 
Gruß

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control