Wanted func to determine height of ListBox row

[count]

Hi,
In VBA Excel 2002 I need a way to determine over which row of a ListBox
mouse pointer is.
I know mouse Y position from BeforeDropOrPaste and need to translate it to
actual target row - for the purpose of drop-inserting.
Knowledge Base has an example that doesn't work for me -
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnvb600/html/dragdrop.asp
Any known updates to the method?
TIA
Paul

 

[Bob Phillips]

Paul,

Surely the Y position cannot relate to a row, as in one instance the mouse
could be over a row that is 3rd in the visible list, in another it could be
over the same row, but that row is 4th in the visible list.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[count]

Thanks Bob,
Yes, this is a problem and ListBox has TopIndex to address it - I think.
Still, I need method or "user32" function to answer me how high each of
ListBox lines is. It used to be available in olden 16-bit days.

The issue is that the code may be used on a pc, where font <> Tahoma 8 pt
and then this calculation:
TargetRow = ListBox1.TopIndex + Int((Y + 4.5) / 10)
will not do anymore.
Thanks again
Paul