System Diagnostics VB.Net by API

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