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 freshbooksConn As FreshBooksConnection = New FreshBooksConnection( _
"API Version=Alpha;Access Token=3d3355b2beea67f9241400fbe28f0b116e3efd2f8a85dda3c35620acdc95cd60;Refresh Token=75836f50da63fc5bf81bb24598511ae131ea422e73d9f321b4c4a44e2dd1c67f;Company Name=Devart")
Dim freshbooksMonitor As FreshBooksMonitor = New FreshBooksMonitor
AddHandler freshbooksMonitor.TraceEvent, AddressOf OnEvent
freshbooksMonitor.IsActive = True
Dim freshbooksCommand As FreshBooksCommand = New FreshBooksCommand("select count(*) from Client", freshbooksConn)
freshbooksConn.Open()
Console.WriteLine(freshbooksCommand.ExecuteScalar())
freshbooksConn.Close()
RemoveHandler freshbooksMonitor.TraceEvent, AddressOf OnEvent
Console.ReadLine()
End Sub