'Declaration
Public Shared Sub LogEvent( _
ByVal As String, _
ByVal As String, _
ByVal As String, _
ByVal As String, _
ByVal As String, _
ByVal As Date, _
ByVal As EventLogEntryEventType, _
ByVal As String, _
ByVal As String _
)
'Usage
Dim serverName As String
Dim serverIPAddress As String
Dim serverPort As String
Dim clientIPAddress As String
Dim clientPort As String
Dim dateTime As Date
Dim eventType As EventLogEntryEventType
Dim channelID As String
Dim description As String
EventLogger.LogEvent(serverName, serverIPAddress, serverPort, clientIPAddress, clientPort, dateTime, eventType, channelID, description)