Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button2.Click
        Dim pl As Process() = Process.GetProcesses
        Me.ListBox1.Items.Clear()
        For Each p As Process In pl
            If p.MainWindowTitle <> "" Then
                Me.ListBox1.Items.Add(p.MainWindowTitle)
 
                If Strings.Left(p.MainWindowTitle, 4) = "Kauf" Then
                    Beep()
                End If
 
            End If
        Next
    End Sub