Завершить несколько процессов

If ComboBox1.SelectedIndex = 0 Then
            On Error GoTo m
            Process.GetProcessesByName("Plugin-container")(0).Kill()
            Process.GetProcessesByName("firefox")(0).Kill()
            Me.Close()
m:
            On Error GoTo mm
            Process.GetProcessesByName("firefox")(0).Kill()
            Me.Close()
mm:
            Me.Close()
        End If

If ComboBox1.SelectedIndex = 3 Then
            On Error GoTo m3
            Process.GetProcessesByName("Plugin-container")(0).Kill()
                Process.GetProcessesByName("iexplore")(0).Kill()
 
            Me.Close()
m3:
            On Error GoTo mm3
                Process.GetProcessesByName("iexplore")(0).Kill()
            Me.Close()
mm3:
            Me.Close()
        End If

CloseMainWindow()

        Dim procs() As Process
        Dim KillProcessList() As String = {"iexplore", "plugin-container", "firefox", "chrome"}
        For browser = 0 To KillProcessList.Count - 1
            procs = Process.GetProcessesByName(KillProcessList(browser))
            For i = 0 To procs.Count - 1
                Try
                    procs(i).Kill()
                Catch ex As Exception
                End Try
            Next
        Next
    End Sub