Private Sub ListBox1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim index As Integer
On Error GoTo endList
WordHeight = 195
index = ListBox1.TopIndex + ((y) / WordHeight)
ListBox1.ListIndex = index
ListBox1.ToolTipText = ListBox1.Text
Exit Sub

endList:
ListBox1.ListIndex = ListBox1.ListCount - 1
ListBox1.ToolTipText = ListBox1.Text

End Sub