by Louise O'Shea ()
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 11th June 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Show tooltip of each listbox item
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