' debugoncon.vb Imports System Imports System.Diagnostics Class DebugOnConsole Shared Sub Main() Debug.Listeners.Add(New TextWriterTraceListener(Console.Out)) Debug.WriteLine("デバッグ・メッセージを出力") End Sub End Class ' コンパイル方法:vbc /r:System.dll /d:DEBUG=1 debugoncon.vb