New EventLog
Imports System.Diagnostics Module Module1 Sub Main() Dim Log As New EventLog("Application") Log.Source = "FormEventLog" Log.WriteEntry("www.java2s.com") End Sub End Module