Public Class Form1
 
    Private Sub getName()
        Dim ProcessList As System.Diagnostics.Process()
        ProcessList = System.Diagnostics.Process.GetProcesses()
        Dim Process As System.Diagnostics.Process
        For Each Process In ProcessList
            ListBox1.Items.Add(Process.ProcessName)
        Next
    End Sub
    Private Sub getID()
        Dim ProcessList As System.Diagnostics.Process()
        ProcessList = System.Diagnostics.Process.GetProcesses()
        Dim Process As System.Diagnostics.Process
        For Each Process In ProcessList
            ListBox2.Items.Add(Process.Id)
        Next
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
        getName()
        getID()
    End Sub
End Class