Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
 
        For Each pc As System.Diagnostics.Process In _
          System.Diagnostics.Process.GetProcesses
 
            ListBox1.Items.Add(pc.ProcessName)
            ListBox1.Sorted() = True
 
        Next
 
    End Sub