Webbrowser.document.getelementbyid("idlink").click

Option Explicit
 
Private Sub Form_Load()
    WebBrowser1.Navigate "www.google.com.ar"
End Sub
 
Private Sub WebBrowser1_DownloadComplete()
 
    Dim vLinks As Object
 
    Set vLinks = WebBrowser1.Document.getElementsByTagName("A")
 
    For Each vLinks In WebBrowser1.Document.links
        Debug.Print vLinks.innerText & ": " & vLinks.href
    Next
End Sub

 
Private Sub Command6_Click()
WebBrowser1.Navigate Text1.Text
End Sub
 
 

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 And Text1.Text <> "" Then WebBrowser1.Navigate Text1.Text
' KeyAscii= 13 Equivale a la tecla Enter
' <> "" Equivale a: no-vacío
End Sub