Sub OnEvent(ByVal sender As Object, ByVal e As MonitorEventArgs)
If e.TracePoint = MonitorTracePoint.BeforeEvent Then
Console.WriteLine("Description: " & e.Description)
Console.WriteLine(" Extra info: " & e.ExtraInfo)
End If
End Sub
<MTAThread()> _
Sub Main()
Dim ZohoDeskConn As ZohoDeskConnection = New ZohoDeskConnection( _
Refresh Token=1000.a6fde76542bfbb5244a7e539d4390e72.87e34ea57023c2d0e7dcb9ce55e3e7f)
Dim ZohoDeskMonitor As ZohoDeskMonitor = New ZohoDeskMonitor
AddHandler ZohoDeskMonitor.TraceEvent, AddressOf OnEvent
ZohoDeskMonitor.IsActive = True
Dim ZohoDeskCommand As ZohoDeskCommand = New ZohoDeskCommand("select count(*) from Accounts", ZohoDeskConn)
ZohoDeskConn.Open()
Console.WriteLine(ZohoDeskCommand.ExecuteScalar())
ZohoDeskConn.Close()
RemoveHandler ZohoDeskMonitor.TraceEvent, AddressOf OnEvent
Console.ReadLine()
End Sub