Sub KickTheIE()
 
        Const PNAME As String = "IEXPLORE"
 
        Dim p As System.Diagnostics.Process
        Dim proc As System.Diagnostics.Process()
 
        ' IE-Prozesse ermitteln
        proc = Process.GetProcessesByName(PNAME)
        ' Schleife über alle Prozesse des IE
        For Each p In proc
            MessageBox.Show("Prozess: " & p.Id & " wird beendet...")
            If p.CloseMainWindow Then
                ' Normales Ende
            Else
                ' gewaltsames Ende
                p.Kill()
            End If
        Next
    End Sub