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

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'イベントログ配列を取得する
    Dim evlogs As System.Diagnostics.EventLog()
    evlogs = System.Diagnostics.EventLog.GetEventLogs()

    For Each log As System.Diagnostics.EventLog In evlogs
        'ログの表示名称を取得し、リストボックスに表示する
        ListBox1.Items.Add(log.LogDisplayName)
    Next log
End Sub