Initial

Common/TraceHelper.vb

@@ -0,0 +1,9 @@
+Imports System.Diagnostics
+
+Public Class TraceHelper
+    Private Shared _traceCriteria As New TraceSwitch("EDOKA.Common.TraceHelper", "Criteria to trace the messages")
+
+    Public Shared Sub Msg(ByVal l As TraceLevel, ByVal message As String)
+        Trace.WriteIf(l >= _traceCriteria.Level, message)
+    End Sub
+End Class