Utilisation GetCursorPos

Bonjour,
Lorsque j'appelle la fonction "GetCursorPos", j'ai ce message d’erreur :

Citation:

---

Un appel à la fonction PInvoke 'FollowTool!FollowTool.FollowTool::GetCursorPos' a déséquilibré la pile. Cela peut se produire, car la signature PInvoke managée ne correspond pas à la signature cible non managée. Vérifiez que la convention d'appel et les paramètres de la signature PInvoke correspondent à la signature non managée cible.

---

Voici ma déclaration :

Code:

---

1 2	Declare Function GetCursorPos Lib "user32" (ByVal lpPoint As POINTAPI) As Boolean

---

La structure de POINTAPI :

Code:

---

1 2 3 4 5

Public Structure POINTAPI Public x As Integer Public y As Integer End Structure

---

L'appelle de la fonction :

Code:

---

1 2 3 4

Dim Position_Curseur As POINTAPI GetCursorPos(Position_Curseur) MsgBox("X = " & Position_Curseur.x & ", Y = " & Position_Curseur.y)

---

Merci pour votre futur aide :mrgreen:

J'ai finalement utilisé :

Cursor.Position.Y

et

Cursor.Position.X