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 zohoConn As ZohoConnection = New ZohoConnection( _
"API Version=V2;Refresh Token=1000.a6fde76542bfbb5244a7e539d4390e72.87e34ea57023c2d0e7dcb9ce55e3e7f3;ClientId=1000.M4FJLKYTSED90LJHUTVMKKAA432RUK;ClientSecret=89a0ed79957808814cdb20b9765423efffa767d1d0")
Dim zohoMonitor As ZohoMonitor = New ZohoMonitor
AddHandler zohoMonitor.TraceEvent, AddressOf OnEvent
zohoMonitor.IsActive = True
Dim zohoCommand As ZohoCommand = New ZohoCommand("select count(*) from Accounts", zohoConn)
zohoConn.Open()
Console.WriteLine(zohoCommand.ExecuteScalar())
zohoConn.Close()
RemoveHandler zohoMonitor.TraceEvent, AddressOf OnEvent
Console.ReadLine()
End Sub