Вопрос про ListBox

[brik]

Как сделать так чтоб в ListBox выделялась выбранная строка цветом при подведении курсором мыши
по
Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) ??

Код

Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With Me.ListBox1
.Selected(.TopIndex + Y \ 10) = True
End With
End Sub

не помогает - курсор по строкам ListBox хаотично срабатывает как нажатие и все выделения цветом по курсору нет

файл во вложении