Module Globals

    Public ofile As System.IO.File
    Public oread As System.IO.StreamReader



    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_EDKB19")
    Public Sub PrintLog(ByVal message As String, Optional ByVal eventmessage As EventLogEntryType = EventLogEntryType.Information)
#If CONFIG = "Release" Then  'Release
        If Not EventLog.SourceExists("EDKB19") Then
            EventLog.CreateEventSource("EDKB19", "EDKB19 Log")
        End If
        EVLog.Source = "EDKB19 Log"

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

    End Sub

End Module