Listo amigos ya lo pude hacer lo que hize fue crear un boton y en propiedades dejarlo en "ENABLED = False"
luego una declaracion del webbrowser asi:
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
y colocarle
command1.enabled = true
el codigo final me quedo algo asi
Código:
rivate Sub Form_Load()
WebBrowser1.Navigate ("mylink")
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Document.body.Scroll = "no"
End Sub
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Command1.Enabled = True
End Sub