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 myConn As SqlConnection = New SqlConnection( _
      "User Id=sa;Server=localhost;Initial Catalog=Test;")
  Dim myMonitor As SqlMonitor = New SqlMonitor
  AddHandler myMonitor.TraceEvent, AddressOf OnEvent
  myMonitor.IsActive = True
  Dim myCommand As SqlCommand = New SqlCommand("select count(*) from Test.Dept", myConn)
  myConn.Open()
  Console.WriteLine(myCommand.ExecuteScalar())
  myConn.Close()
  RemoveHandler myMonitor.TraceEvent, AddressOf OnEvent
  Console.ReadLine()
End Sub