Windows VB.Net Tutorial

Option Explicit
Option Strict
Imports System
Imports System.Diagnostics
Imports System.Threading
Class MySample
    Public Shared Sub Main()
        If Not EventLog.SourceExists("MySource") Then
            EventLog.CreateEventSource("MySource", "MyNewLog")
            Console.WriteLine("CreatingEventSource")
            Return
        End If
        Dim myLog As New EventLog()
        myLog.Source = "MySource"
        myLog.WriteEntry("Writing to event log.")
    End Sub
End Class