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 db2Conn As DB2Connection = New DB2Connection( _
      "user id=db2admin;server=db2;database=SAMPLE;")
  Dim db2Monitor As DB2Monitor = New DB2Monitor
  AddHandler db2Monitor.TraceEvent, AddressOf OnEvent
  db2Monitor.IsActive = True
  Dim db2Command As DB2Command = New DB2Command("select count(*) from Dept", db2Conn)
  db2Conn.Open()
  Console.WriteLine(db2Command.ExecuteScalar())
  db2Conn.Close()
  RemoveHandler db2Monitor.TraceEvent, AddressOf OnEvent
  Console.ReadLine()
End Sub