Private Sub CloseAll() Dim theProcesses() As Process = System.Diagnostics.Process.GetProcessesByName("Iexplore") For Each currentProcess As Process In theProcesses If InStr(currentProcess.MainWindowTitle.ToString, Me.SearchString) > 0 Then currentProcess.Kill() End If Next Application.Exit() End Sub