Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim procs() As System.Diagnostics.Process
        Dim ExterneAnwendung As New System.Diagnostics.Process()
        procs = Process.GetProcessesByName("Meine Anwendung")
 
        For i As Integer = 0 To procs.Length - 1
            ExterneAnwendung = procs(i)
            If ExterneAnwendung.HasExited = False Then
                If ExterneAnwendung.CloseMainWindow() = False Then
                    ExterneAnwendung.Kill()
                End If
            End If
        Next
 
    End Sub