Private Sub CallInfoEvent()
        Try
            Dim CallerID As String
            CallerID = CallInfoObject.Call.CallInfoString( _
              CALLINFO_STRING.CIS_CALLERIDNUMBER)
            RaiseEvent OnIncomingCall(CallerID)
        Catch ex As Exception
            RaiseEvent OnLog("Error", ex.Message)
        End Try
    End Sub

    Friend WithEvents clsTapi As New classTAPI
 
    Private Sub clsTapi_OnIncomingCall(ByVal vCallerNumber As String) Handles _
      clsTapi.OnIncomingCall
        'lblNumber.Text = vCallerNumber
        MsgBox(vCallerNumber)
    End Sub