Private Sub oTAPI_Event(ByVal TapiEvent As TAPI3Lib.TAPI_EVENT, ByVal _
      pEvent As Object) Handles oTAPI.Event
        ' making a thread to asynchronosly process the event
        Dim thAsyncCall As System.Threading.Thread
        Select Case TapiEvent
            Case TAPI_EVENT.TE_CALLNOTIFICATION 'Call Notification Arrived
                ' assigning our sub's delegate to the thread
                thAsyncCall = New Threading.Thread(AddressOf _
                  CallNotificationEvent)
                'passing the variable for the thread
                CallNotificationObject = CType(pEvent, ITCallNotificationEvent)
                ' starting the thread
                thAsyncCall.Start()
            Case TAPI_EVENT.TE_CALLSTATE 'Call State Changes
                ' assigning our sub's delegate to the thread
                thAsyncCall = New Threading.Thread(AddressOf CallStateEvent)
                'passing the variable for the thread
                CallStateObject = CType(pEvent, ITCallStateEvent)
                ' starting the thread
                thAsyncCall.Start()
            Case TAPI_EVENT.TE_CALLINFOCHANGE 'Call Info Changes
                ' assigning our sub's delegate to the thread
                thAsyncCall = New Threading.Thread(AddressOf CallInfoEvent)
                'passing the variable for the thread
                CallInfoObject = CType(pEvent, ITCallInfoChangeEvent)
                ' starting the thread
                thAsyncCall.Start()
        End Select
    End Sub