Office: Tooltiptext bei Mouseover in Listbox

Eigentlich ist im Threadtitel die Frage schon formuliert. Aber etwas ausführlicher:
In einer Listbox werden Artikel aufgelistet. Ich möchte nun zu jedem Artikel einen zugehörigen Tooltiptext einblenden, wenn der Mauszeiger darüber ruht. Das ist per se für eine Listbox nicht vorgesehen, es gibt nur einen einzigen 'ControlTipText', wenn der Mauszeiger irgendwo über der Listbox liegt.
Das Problem lässt sich lösen, wenn man die genaue, auf die Listbox bezogene Mausposition ermittelt, dazu gibt es das .MouseMove-Ereignis. Sie liefert 4 Werte, wovon für mich nur der Y-Wert von Interesse ist, dies ist die vertikale Mausposition innerhalb der Listbox in Twips.
Da ich nun 33 sichtbare (vertikaler Scrollbalken!) Zeilen habe und die Indizes 0 - 32 brauche, kann ich aus den Twips leicht den Index errechnen, in meinem Fall, letzte Zeile beginnt bei 314 Twips:
Code:

Nun kann ich den Controltiptext passend analog zur betreffenden Zeile ändern, genau das gewünschte Ergebnis.
ABER:
Das stimmt nur, solange ich in der mehr als 150 Zeilen umfassenden Listbox nicht scrolle. Wie ermittle ich den Index des obersten angezeigten Listeneintags, wenn dies nicht der Listbox-Anfang ist?

:)

 

Hallo,

mit ListBox1.TopIndex....*cool.gif*

Gruß, Muller

 

Klasse. Warum bin ich Depp nicht darauf gekommen? Danke!