Public Class Form1
 
    Inherits System.Windows.Forms.Form
    Dim WithEvents NoExplorer As New clsShellWindow 
 
 " Vom Windows Form Designer generierter Code "
 
'Dein weiterer Code
 
 End Class
 
'Klasse clsShellWindow
Public Class clsShellWindow
    Private WithEvents Window As SHDocVw.ShellWindows
    Private SH As Shell32.Shell
    Public Event OnError(ByVal Ex As Exception)
    Public Event OnExplorerOpen()
 
    Public Sub New()
        Try
            SH = New Shell32.Shell
            Window = SH.Windows
        Catch ex As Exception
            RaiseEvent OnError(ex)
        End Try
 
    End Sub
    Private Sub Window_WindowRegistered(ByVal lCookie As Integer) Handles _
      Window.WindowRegistered
        Try
            Dim WB As SHDocVw.InternetExplorer = Window.Item(Window.Count - 1)
            WB.Quit() 'Explorer sofort wieder Beenden
            RaiseEvent OnExplorerOpen()
        Catch ex As Exception
            RaiseEvent OnError(ex)
        End Try
    End Sub
End Class