Option Explicit
 
Private WithEvents MyCommControl As MSComm
 
Public Property Let CommControl(ByVal oControl As Object)
  Set MyCommControl = oControl
End Property

Set Class1.CommControl = MSComm1

Private Sub MyCommControl_OnComm()
  ...
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de