Const URL_DESEADA ="http://www.tudire.com"

Private Sub Form_Activate()
    Me.WebBrowser.Navigate URL_DESEADA, navNoReadFromCache + navNoWriteToCache + navNoHistory
End Sub

Private Sub timer1_timer()
    On Error GoTo Reload
     
    WebBrowser.Document.Forms(0).Elements(1).Click
    
    Votados = Votados + 1
    VotadosPost = VotadosPost + 1
    Exit Sub
    Me.WebBrowser.Navigate URL_DESEADA, navNoReadFromCache + navNoWriteToCache + navNoHistory
    Me.WebBrowser.Refresh

Reload: Form_Load
end sub

Private Sub timer1_timer()
    On Error GoTo nopasana

    Me.WebBrowser.Navigate txturl.text    'cargamos la url
    Me.WebBrowser.Refresh                     'refrescamos el control

   'aki realizas que se clickee el valor que deseas
    
   
     txtvotos.text=txtvotos.text+1
    Exit Sub
   
Reload: resume next
end sub