' in der Form, in der das MSCOmm-Control verwendet wird
Option Explicit
Public Event OnComm(Parameterliste)
 
Private Sub MSComm1_OnComm()
  RaiseEvent OnComm(Parameterliste)
End Sub

' im Klassenmodul der ActiveX-DL:
Option Explicit
Public Event OnComm(Patameterliste)
Private WithEvents frmData As frmSeriell
 
...
 
Set frmData = New frmSeriell
...
 
Private Sub frmData_OnComm(Parameterliste)
  RaiseEvent OnComm(Parameterliste)
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de