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