ya ves
Publicado por cartuflo (1 intervención) el 16/05/2002 23:59:12
Pon este codigo y te funcionara.....
Public Sub webbrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim F As New Form1
F.Show 0, Me
F.Toolbar1.Buttons.Item(1).Enabled = False
F.cerrar.Enabled = False
F.Combo1.Text = F.WebBrowser1.LocationURL
Set ppDisp = F.WebBrowser1.object
End Sub
Public Sub webbrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim F As New Form1
F.Show 0, Me
F.Toolbar1.Buttons.Item(1).Enabled = False
F.cerrar.Enabled = False
F.Combo1.Text = F.WebBrowser1.LocationURL
Set ppDisp = F.WebBrowser1.object
End Sub
Valora esta pregunta
0