Créer un clique

Salut, je ne trouve pas comment faire pour générer un clique de souris.

Dans mon programme, je positionne le curseur sur une zone de text, et apres j aimerai sender le focus dedans en cliquan dessus, mais avec le programme.

Si qqu pouvait m'aider.

Merci d'avance.

===================
marmotte
... sais jamais quoi faire
-------------------------------
cdt_marmotte@hotmail.com
===================

Public Const MOUSEEVENTF_LEFTDOWN = &H2 Public Const MOUSEEVENTF_LEFTUP = &H4 Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) mouse_event MOUSEEVENTF_LEFTDOWN, x, y, 0, 0 mouse_event MOUSEEVENTF_LEFTUP, x, y, 0, 0

E.B.