Imports System Imports System.Text Public Class Sample Public Shared Sub Main() Dim myWriter As New TextWriterTraceListener() myWriter.Writer = System.Console.Out Trace.Listeners.Add(myWriter) myWriter.Write("A") myWriter.WriteLine("B") myWriter.Flush() myWriter.Close() End Sub End Class