ChgTooltip

Private Sub ListBox1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim index As Integer
index = ListBox1.TopIndex + ((Y) / WordHeight)
ListBox1.ToolTipText = Str(ListBox1.ItemData(index))
End Sub