VB.NET, C#, PowerShell Tipsサイト

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim evLog As New System.Diagnostics.EventLog("Application")

    Dim iCnt As Integer = Math.Min(5, evLog.Entries.Count)

    For I As Integer = 0 To iCnt - 1
        'イベントを発生させたアプリケーションを取得
        ListBox1.Items.Add(evLog.Entries(I).Source)
        'イベントに関連づけられたメッセージを取得
        'ListBox1.Items.Add(evLog.Entries(I).Message)
    Next
End Sub