Module Globals

    Public params As New ClsParameters



    Public Sub PrintOut(ByVal s As String)
        'Console.WriteLine(Format(Now, "yyyyMMddHHmmss") + ": " + s)
        PrintLog(Format(Now, "yyyyMMddHHmmss") + ": " + s, EventLogEntryType.Information)
    End Sub

    Dim EVLog As New EventLog("Log_EDKB21")
    Public Sub PrintLog(ByVal message As String, Optional ByVal eventmessage As EventLogEntryType = EventLogEntryType.Information)
#If CONFIG = "Release" Then  'Release
        If Not EventLog.SourceExists("EDKB21") Then
            EventLog.CreateEventSource("EDKB21", "EDKB21 Log")
        End If
        EVLog.Source = "EDKB21 Log"

        EventLog.WriteEntry(EVLog.Source, message, eventmessage)
#Else
        Debug.Print(message)
#End If

    End Sub

End Module