PRIVATE myInterface AS extHardwareConnection
 
'Initialisierung der Schnittstelle
SUB INI()
   AddHandler myInterface.OnActionCompleted, New AsyncDataHandler(AddressOf _
     mySub)
END SUB
 
'Asynchroner Aufruf, wenn Daten vorhanden sind
SUB mySub()
  ...
END SUB

PRIVATE WithEvents myInterface AS extHardwareConnection
 
'Asynchroner Aufruf, wenn Daten vorhanden sind
SUB mySub()Handles myInterface.OnActionCompleted
  ...
END SUB