Public Class frmPopUp

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowserEx1.DocumentCompleted
        Try
            If Me.WebBrowserEx1.Document.Body.ScrollRectangle.Width = 0 Then
                Me.Width = 500
            Else
                Me.Width = Me.WebBrowserEx1.Document.Body.ScrollRectangle.Width + 40
            End If

            Me.Height = Me.WebBrowserEx1.Document.Body.ScrollRectangle.Height + 40
            If Me.Height + Me.Top > Screen.PrimaryScreen.Bounds.Height Then
                Me.Height = Screen.PrimaryScreen.Bounds.Height - Me.Top
            End If
            If Me.Width + Me.Left > Screen.PrimaryScreen.Bounds.Width Then
                Me.Width = Screen.PrimaryScreen.Bounds.Width ' - Me.Left
            End If

            If Me.Width < 100 Then
                Me.Width = 500
            End If
            Me.StartPosition = FormStartPosition.CenterScreen
        Catch ex As Exception

        End Try
        AddHandler WebBrowserEx1.WBWantsToClose, Sub() Me.Close()
        ' AddHandler WebBrowserEx1.HandleCreated, Sub() MsgBox("3")
        ' AddHandler WebBrowserEx1.ControlRemoved, Sub() MsgBox("4")
        'AddHandler WebBrowserEx1., Sub() MsgBox("5")
        'AddHandler WebBrowserEx1.DockChanged, Sub() MsgBox("a")
        ' AddHandler WebBrowserEx1.DockChanged, Sub() MsgBox("a")
        ' AddHandler WebBrowserEx1.DockChanged, Sub() MsgBox("a")
        'End Sub
    End Sub

    Private Sub wb_NewWindow2(ByVal sender As Object, ByVal e As Kleinma.Controls.WebBrowserNewWindow2EventArgs) Handles WebBrowserEx1.NewWindow2
        Dim F As New frmPopUp
        F.Show() 'important to call show method before the following lines to ensure
        F.Name = ""
        e.ppDisp = F.WebBrowserEx1.Application
        F.WebBrowserEx1.RegisterAsBrowser = True
    End Sub

End Class