Private Sub WebBrowser1_NewWindow2(ByVal ppDisp As Object, ByVal Cancel As Boolean)
 
 
    'Cancelamos la ventana del explorador predeterminado
    Cancel = True
 
    'Creamos una nueva instancia del navegador, es decir del formulario
    NuevaVentana = New FrmWeb
 
    NuevaVentana.Show() 'lo hacemos visible
    'cargamos la página en esta nueva ventana
    NuevaVentana.WebBrowser.Navigate(lblStatusbar)
 
End Sub
 
 
Private Sub Form_Unload(ByVal Cancel As Integer)
 
    'Eliminamos la variable de tipo FrmWeb cuando descargamos el Formulario
    NuevaVentana = Nothing
 
End Sub