static void Main(string[] args)
{
     LinqMonitor linqMonitor = new LinqMonitor();
     linqMonitor.IsActive = true;
            
     CrmDemoContext.CrmDemoDataContext db = new CrmDemoContext.CrmDemoDataContext();
     linqMonitor.TraceEvent += new Devart.Data.Linq.Monitoring.MonitorEventHandler(OnEvent);
     var query = from it in db.Companies
                 select it;
            
     foreach (CrmDemoContext.Company company in query)
     {
         Console.WriteLine(company.CompanyName);
     }
 
     linqMonitor.TraceEvent -= OnEvent; 
}

static void OnEvent(object sender, MonitorEventArgs e)
{
     if (e.TracePoint == MonitorTracePoint.BeforeEvent)
     {
         Console.WriteLine("Description: " + e.Description);
         Console.WriteLine("Extra info: " + e.ExtraInfo);
     }
} 

Private Shared Sub Main(ByVal args As String())   
    Dim linqMonitor As New LinqMonitor
    linqMonitor.IsActive = True
    
    Dim db As New CrmDemoDataContext
    AddHandler linqMonitor.TraceEvent, New MonitorEventHandler(AddressOf Program.OnEvent)
    
    Dim query = From it in db.Companies
                Select it;
    
    Dim company As Company
    For Each company In query
        Console.WriteLine(company.CompanyName)
    Next
    
    RemoveHandler linqMonitor.TraceEvent, New MonitorEventHandler(AddressOf Program.OnEvent)
End Sub

Private Shared 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