使用EventLog控件向事件查看器中写出事件方法。

@#请先从组件中拖一个EventLog的控件到的你的Form上

@#我用一个命令按钮来执行写入操作。
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        @#如果没有存在事件源的话就新建一个
        If Not EventLog.SourceExists("WriteToEvent") Then
            EventLog.CreateEventSource("WriteToEvent", "Application")  @#Application是表示放于应用程序事件中
        End If
        EventLog1.Source = "WriteToEvent"
        EventLog1.WriteEntry("在这里我执行一个写入测试。")  @#执行写入操作。
    End Sub

原文转自：http://www.ltesting.net