Class Trace
Public
	Static Sub WriteLine( message As String )
		Dim tempmsg = message + Ex"\n"
		OutputDebugString( tempmsg )
	End Sub
End Class