Have a quick question I'm sure Bloodeye knows...

[Matthew Gates]

Try this:

Private Sub webbrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
    Dim NewFrm As New Form1
    NewFrm.Show
    Set ppDisp = NewFrm.webbrowser1.object
End Sub