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