*** Listbox MouseMove events Local lc_FontStyle, ln_FontHeight, ln_Index With This lc_FontStyle = iif( .FontBold, 'B', '' ) + iif( .FontItalic, 'I', '' ) + ; iif( .FontUnderline, 'U', '' ) ln_FontHeight = FontMetric( 1, .FontName, .FontSize, lc_FontStyle ) + ; FontMetric( 4, .FontName, .FontSize, lc_FontStyle ) ln_Index = .TopIndex + int((nYCoord - .Top) / ln_FontHeight) * .ListIndex = ln_Index && autoselect Wait .List( ln_Index ) window nowait EndWithHTH