Private Sub Timer1_Timer()
Dim Variable
Variable = isdn1.ereignis() 'Ereignis =0 nix los
If Variable = 1 Then 'Ereignis =1 anruf
Text1 = isdn1.anrufer 'Anrufer Nummer
Text2 = isdn1.ziel 'Zielnummer
Text3 = isdn1.ergebnis 'Angenommen oder aufgelegt
Text4 = Date + Time 'Nur mal so Datum und Uhrzeit
End If
End Sub
Viel Spaß !