Public Class Form1
  Inherits System.Windows.Forms.Form

Vom Windows Form Designer generierter Code

  Dim oItem As ListViewItem

  Private Sub Form1_Load(ByVal sender As System.Object, _
         ByVal e As System.EventArgs) Handles MyBase.Load
    ListView1.View = View.Details
    ListView1.Columns.Add( _
          "ProcessName", 120, HorizontalAlignment.Left)
    ListView1.Columns.Add( _
          "ProcessID", 100, HorizontalAlignment.Left)
    FillListView()
  End Sub

  Private Sub AddItems(ByVal lvw As ListView, ByVal _
          sProperty As String, ByVal sValue As String)
    oItem = New ListViewItem(sProperty)
    oItem.SubItems.Add(sValue)
    lvw.Items.Add(oItem)
  End Sub

  Private Sub FillListView()
    Dim proc As Process
    Dim i As Integer

    Cursor.Current = Cursors.WaitCursor()

    For Each proc In Process.GetProcesses
      AddItems(ListView1, proc.ProcessName, proc.Id.ToString)
      i += 1
    Next proc

    Cursor.Current = Cursors.Default()
    Label1.Text = i.ToString
  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click
    ListView1.Items.Clear()
    FillListView()
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button2.Click
    Me.Close()
  End Sub
End Class