Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles MyBase.Load
 
 For Each proc In Process.GetProcesses
            If Not proc.MainWindowTitle = "" Then ListBox1.Items.Add( _
              proc.MainWindowTitle)
        Next
 
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        ListBox2.Items.Add(ListBox1.SelectedItem)
        Dim x, y As Integer
        For x = 0 To ListBox1.Items.Count - 1
            For y = 0 To ListBox2.Items.Count - 1
                If ListBox1.Items.Item(x) = ListBox2.Items.Item(y) Then
                    proc.CloseMainWindow()
                End If
            Next
        Next
 
    End Sub