This piece of code lets you display an item in a list box as that list box’s tooltip.
Private Sub lstItems_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim lngIndex As Long lngIndex = lstItems.TopIndex + (Y TextHeight(