simuler un clic gauche

Bonjour tout le monde,
J'aimerais à l'aide de deux textbox, dans lesquelles j indiquerai la coordonnée de X, puis dans la seconde, la coordonnée de Y, pour que le programme clic (clic gauche). Les coordonnées sont relatives à l’écran svp.
Quelqu un pourait il m'aider svp :)

Bon dimanche

Bien sûr je peux t'aider, mais ça sera un peu cher (blague).
Dans les variables au début :

Code:

---

1 2 3 4

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

---

Et là où tu veux que ça se produise :

Code:

---

1 2 3 4

mouse_event(MOUSEEVENTF_LEFTDOWN, TextBox1.Text, TextBox2.Text, 0, 0) 'Enfonce le bouton de la souris Threading.Thread.Sleep(20) mouse_event(MOUSEEVENTF_LEFTUP, TextBox1.Text, TextBox2.Text, 0, 0) ' le relève

---

TextBox1.Text -> Valeur de X TextBox2.Text -> Valeur de Y.

Merci beaucoup :)
Je teste ta solution dans la soirée et je te dirais le resultat
Merci merci merciiiiiii

Re :
Merci pour ton code.
Mais j'ai un petit problème :
mouse_event
Threading
mouse_event
Ces 3 éléments sont surligner en rouge dans vs...
Désolé je suis vraiment nul...

merci encore

j'ai reussi merci beaucoup