Use the EventLog control to write event methods to the Event Viewer.

Control ' Please drag a EventLog control from the component to your form

' I use a command button to perform a write operation.
Private Sub button1_click (ByVal sender as System.Object, ByVal e as System.EventArgs) Handles Button1.Click
' Create a new one if no event source exists
If not EventLog.SourceExists ("writetoevent") Then
EventLog.CreateEventSource ("Writetoevent", "Application") ' application is represented in application events
End If
Eventlog1.source = "Writetoevent"
Eventlog1.writeentry ("Here I perform a write test.") ")" To perform a write operation.
End Sub