Private Sub AxWebBrowser1_NewWindow2(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_NewWindow2Event) Handles AxWebBrowser1.NewWindow2
Dim NewApp As New Form1()
NewApp.Visible = True
e.ppDisp = NewApp.AxWebBrowser1.Application
End Sub