Récupérer le Y d'un item sélectionné dans une ListBox

Bonjour,

J'utilise une ListBox (List1) et pour récupérer la position Y de l'item sur lequel je clique j'utilise List1_MouseDown
Ainsi je peux venir placer le .top d'un autre control à la hauteur de l'item cliqué. Jusque la tout va bien.
Mais maintenant j'aurais besoin de sélectionner un item de cette List1 par du code (je sais faire) et pouvoir aussi récupérer la position Y de cet item afin de placer le .top de mon control.
Mais comment récupérer ce Y ?
Avez-vous une idée ?
Par avance merci
Marc VB6

Quoique la question ne soit pas bien claire, essaie avec la PJ suivante

On aurait peut-être besoin de modifier le code selon la position de List1

Merci Autodidate pour la réponse,

Ce que j'ai oublié de dire (et c'est pour cela que j'utilise le List1_MouseDown au lieu du List_Click) est que ma List1 comporte beaucoup d'items et que j'ai une ScrollBar verticale.
De fait, la List1.height fausse le calcul dans ta Sub LabelPos().
(Avec Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) je récupère le Y. Et là ça fonctionne quelque soit la hauteur de List1 et quelque soit la position de la ScrollBar.)

Mais mon réel problème est lorsque je sélectionne un item de List1 avec du code.
Exemple:
Mets ta List1.height = 2790.
Dans la Form1, ajoute un Bouton et dans ce Bouton sélectionne un item (ex: le n°20) dans List1:

Code:

---

1 2 3 4

Private Sub Command1_Click() List1.Selected(20) = True LabelPos End Sub

---

Evidemment on tombe pas à côté.

J'espère être plus clair.
Pas toujours facile d'expliquer un problème.
Marc VB6