Joel.e.Martin\sandbox

Private Sub File1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) Dim ItemHeight As Long Dim NewIndex As Long Static OldIndex As Long

With File1 ItemHeight = SendMessage(.hWnd, LB_GETITEMHEIGHT, 0, ByVal 0&) ItemHeight = .Parent.ScaleY(ItemHeight, vbPixels, vbTwips) NewIndex = .TopIndex + (y \\ ItemHeight) If NewIndex <> OldIndex Then If NewIndex < .ListCount Then .ToolTipText = .List(NewIndex) Else .ToolTipText = vbNullString End If OldIndex = NewIndex End If End With End Sub