Private CallNotificationObject As ITCallNotificationEvent
Private Sub CallNotificationEvent()
        ' Funktion wird aufgerufen, wenn die Tapi einen eingehenden Anruf 
        ' erkennt.
 
	Dim oCallInfo As ITCallInfo = CallNotificationObject.Call()
	Dim objBasicontrol As ITBasicCallControl = oCallInfo ' Hier kracht es 
' ordentlich
 
	objBasicontrol.Answer()
 
End Sub

Das COM-Objekt des Typs "System.__ComObject" kann nicht in den _
  Schnittstellentyp "TAPI3Lib.ITBasicCallControl" umgewandelt werden. Dieser _
  Vorgang konnte nicht durchgeführt werden, da der QueryInterface-Aufruf an die _
  COM-Komponente für die Schnittstelle mit der IID _
  "{B1EFC389-9355-11D0-835C-00AA003CCABD}" aufgrund des folgenden Fehlers nicht _
  durchgeführt werden konnte: Schnittstelle nicht unterstützt (Ausnahme von _
  HRESULT: 0x80004002 (E_NOINTERFACE)).