Initial

Common/Tracer.vb

@@ -0,0 +1,24 @@
+Imports System.Diagnostics
+
+Public MustInherit Class Tracer
+	Inherits TraceListener
+
+
+
+Public Sub New()
+
+End Sub
+
+
+
+	Public Overloads Sub WriteLine(ByVal message As String, ByVal category As String)
+
+	End Sub
+
+
+	Public Overloads Shared Sub Write(ByVal message As String, ByVal category As String)
+
+	End Sub
+
+
+End Class