Option Explicit
Private WithEvents ocxDial As MTECDIALLib.MtecDial
 
Private Sub Form_Load()
    Set ocxDial = New MTECDIALLib.MtecDial
    Call ocxDial.AboutBox
    Call ocxDial.LineInit
    Call ocxDial.DialNumber(2,"0123456789") ' --> TelephonyCallback-Event 
    ' auslösen
End Sub
 
Private Sub ocxDial_TelephonyCallback(ByVal CallId As Integer, ByVal State As _
  Integer, ByVal Number As String)
    MsgBox "test" 'wird nie ausgeführt
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    ocxDial.LineQuit
End Sub