>I would like to know how to get the value, or at least the ItemId or
>ListItemId of the current item under the mouse in the listbox without
>clicking on it. Mind you, the list box could be scrolled to the
>middle of the list, but whatever is under the mouse, that is what I
>want.
>
>Any thoughts?
>
>I know that I can use the MouseMove event to get the coords, but how,
>if at all, do I determine what list item the mouse is over?
>
>David

*Listbox init
*... code if any
* Save rowheight to a property
Thisform.Newobject('lblDummy','Label')
With Thisform.lblDummy
  .AutoSize = .T.
  .Left = -100
  .FontName=This.FontName
  .FontSize=This.FontSize
  .FontBold = this.FontBold
  .FontItalic = this.FontItalic
  .FontUnderline = this.FontUnderline
  .Caption = .Caption
  .Visible = .T.
  This.AddProperty('nRowHgt',.Height)
Endwith
Thisform.RemoveObject('lblDummy')

* Listbox mousemove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
Local lnOnRow
With this
  lnOnRow = ceiling( ( nYCoord - Objtoclient(this,1) - 1 ) / .nRowHgt )
  Wait window nowait "On : " + .List(m.lnOnRow + .TopIndex - 1)
endwith 

Cetin