[Resolvido]Simular Click em textbox

Pessoal, boa noite!
Eu pesquisei a minha dúvida aqui no fórum, mas confesso que não havia encontrado solução.
Minha dúvida é o seguinte, tenho um programa em access, onde em um formulário eu armazeno o hiperlink de determinada pagina da internet em um textbox;
Sei que ao clicar no textbok a pagina é aberta automaticamente, mas agostaria de simular este evento para que não precise clicar.
Meu objetivo por exemplo é que como eu preciso verificar mais de 100 páginas por dia, gostaria de criar um evento com contador, para que o click seja realizado automaticamente em um registro e depois avançasse para o próximo., isto me pouparia de ter que clicar em cada um.

Obrigado

Boa tarde,
Coloque no código call NomeX_Click

Prezado Alexandre,
Obrigado pela resposta, contudo, testei aqui e não funcionou.
O nome do textbox onde está armazenado o hiperlink , se chama hiperlink mesmo. Tentei colocar no código Call hiperlink_Click, também tentei me.hiperlink_click, mas não funcionou.
Também tentei criar uma função e chamar pelo código, mas não funcionou, a mensagem que aparece é: "Método ou membro de dados não encontrado" ou "sub ou function não definida"

Boa noite PATRICK

O exemplo que o Mestre Alexandre lhe indicou, se for colocado no evento Timer deve resultar.

Procure aqui no Forum um exemplo chamado " Banner " e estude com nesse exemplo a imagem muda de 5 em 5 segundos automaticamente sem click.

Pessoal, muito obrigado pelo ajuda.
Na verdade a dica Alexandre atendia perfeitamente à minha pergunta, pois realmente simula o click do mouse, eu mesmo fiz o teste com outros botoes e funcionou, na verdade eu que me expressei mal, pois gostaria de abrir o hiperlink automaticamente e no evento do click inclusive ja possuía outra função.
Eu consegui acessar o hiperlink automaticamente através das seguintes funções, eu coloquei o contador até 10 para abir 10 paginas, pois ainda não sei o quanto afetaria no desempenho do pc;

Public Sub fncAbrirtjrj(strSite As String)
Dim ws As Object, x
Set ws = CreateObject("WScript.Shell")
x = ws.Run(strSite, vbMaximizedFocus, False)
Set wShell = Nothing
End Sub

Private Sub cmdatualizar2_Click()
Dim I As Integer
For I = 1 To 10
Call fncAbrirtjrj(Me.LINKTJRJ)
DoCmd.GoToRecord , , acNext
Next I
End Sub

Boa noite,
Se resolveu, marque o "Resolvido"

Prezados,
Tópico resolvido, obrigado pelo apoio.