Error en Webbrowser en vb6.0

Hola,

Tengo un problema en el control webbrowser en vb6.0 aqui les dejo el código lo que pasa que cuando quiero ver la ventana popup no me muestra nada :

Private Sub controlweb_NewWindow2(ppDisp As Object, Cancel As Boolean)
'Cancelamos la ventana del explorador predeterminado
Cancel = True

Dim frm_web As frmweb
'Nueva instancia del formulario
Set frm_web = New frmweb
frm_web.controlweb.RegisterAsBrowser = True
Set ppDisp = frm_web.controlweb.object

frm_web.Show vbModal

Set frm_web = Nothing

End Sub