Private Sub tobj_Event(ByVal TapiEvent As TAPI3Lib.TAPI_EVENT, ByVal pEvent As Object) Handles tobj.Event
        StateEvent = ""

        Select Case TapiEvent

            Case TAPI3Lib.TAPI_EVENT.TE_CALLNOTIFICATION
                StateEvent = "TE_CALLNOTIFICATION"

                Dim objCallNotificationEvent As TAPI3Lib.ITCallNotificationEvent
                objCallNotificationEvent = pEvent

                Dim gobjReceivedCallInfo As TAPI3Lib.ITCallInfo
                gobjReceivedCallInfo = objCallNotificationEvent.Call

                Dim objReceivedCallControl As TAPI3Lib.ITBasicCallControl
                objReceivedCallControl = gobjReceivedCallInfo ' Проблема тут выскакивает исключение 

                objReceivedCallControl.Answer()
End Select