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