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
                    'Prozess beenden
                End If
            Next
        Next
 
        'oder so
 
        For x = 0 To ListBox2.Items.Count - 1
            If proc.MainWindowTitle = ListBox2.Items.Item(x) Then
                proc.CloseMainWindow()
            End If
        Next