Public Sub New()
        Try
            Dim WB As SHDocVw.InternetExplorer = Nothing
            SH = New Shell32.Shell
            Window = SH.Windows
 
            For i As Integer = Window.Count - 1 To 0 Step -1
                WB = Window.Item(i)
                WB.Quit()
            Next
 
        Catch ex As Exception
            RaiseEvent OnError(ex)
        End Try
 
    End Sub