Private Sub Command1_Click()   
Cargamos la página en el control WebBrowser   
WebBrowser1.Navigate "www.recursosvisualbasic.com.ar"  
End Sub  
  
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)   
'Cancelamos la ventana del explorador predeterminado   
Cancel = True  
  
Dim f As Form1   
'Creamos un nuevo form a partir del Form1   
Set f = New Form1   
'Lo mandamos a la Url   
f.WebBrowser1.Navigate MiUrl   
'Lo mostramos   
f.Show   
'Eliminamos la variable   
Set f = Nothing  
  
End Sub  
  
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)   
'Almacenamos la url   
MiUrl = Text   
End Sub