Obtenir Coordonnées Absolues d'un controle

Bonjour,

J'aimerais savoir comment obtenir les coordonnées X et Y absolue d'un controle par rapport à l'écran. C'est a dire, leur position depuis le 0 de l'écran.

Merci d'avance.

Exemple avec un Label nommé Label1:

Dim Position As Point = Label1.PointToScreen(Label1.Location)

Autre exemple en utilisant une Fonction:

Private Function Position(ByVal ctrl As Control) As Point
        Return ctrl.PointToScreen(ctrl.Location)
End Function

Utilisation (toujours avec Label1):

Dim Position As Point = Position(Label1)

Tu as d'autres méthodes, mais la plus simple est peut-être de faire l'addition, pour chacune des coordonnées x et y, des corrdonées Left et Top de ta Form et de celles (ramenées à l'échelle Twips) de ton contrôle.
De mémoire, tu as également la possibilité d'utiliser la fonction ClienToScreen de la librairie User32 de l'Api de Windows  (maos à la condition que ton contrôle soit un contrôle doté de la propriété hwnd)