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 ZohoBooksConn As ZohoBooksConnection = New ZohoBooksConnection( _
Refresh Token=1000.a6fde76542bfbb5244a7e539d4390e72.87e34ea57023c2d0e7dcb9ce55e3e7f)
Dim ZohoBooksMonitor As ZohoBooksMonitor = New ZohoBooksMonitor
AddHandler ZohoBooksMonitor.TraceEvent, AddressOf OnEvent
ZohoBooksMonitor.IsActive = True
Dim ZohoBooksCommand As ZohoBooksCommand = New ZohoBooksCommand("select count(*) from Accounts", ZohoBooksConn)
ZohoBooksConn.Open()
Console.WriteLine(ZohoBooksCommand.ExecuteScalar())
ZohoBooksConn.Close()
RemoveHandler ZohoBooksMonitor.TraceEvent, AddressOf OnEvent
Console.ReadLine()
End Sub