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