DisplayItem

Option Explicit
Private Declare Function SendMessage Lib _
"user32" Alias "SendMessageA" (ByVal hwnd _
As Long, ByVal wMsg As Long, ByVal wParam _
As Long, lParam As Any) As Long

Private Const LB_ITEMFROMPOINT = &H1A9

Private Sub Form_Load()
With List1
.AddItem "Visit"
.AddItem "Steve Anderson Web Site AT"
.AddItem "http://www.microweird.demon.co.uk"
End With
End Sub
'_________________________________________________________


Private Sub List1_MouseMove(Button _
As Integer, Shift As Integer, X As _
Single, Y As Single)
Dim lXPoint As Long
Dim lYPoint As Long
Dim lIndex As Long
If Button = 0 Then ' if no button was pressed
lXPoint = CLng(X / Screen.TwipsPerPixelX)
lYPoint = CLng(Y / Screen.TwipsPerPixelY)
With List1
' get selected item from list

lIndex = SendMessage(.hwnd, _
LB_ITEMFROMPOINT, 0, ByVal _
((lYPoint * 65536) + lXPoint))
' show tip or clear last one

If (lIndex >= 0) And _
(lIndex <= .ListCount) Then
.ToolTipText = .List(lIndex)
Text1.Text = .List(lIndex)
Else
.ToolTipText = ""
End If
End With
End If
End Sub
'_________________________________________________________


'Run the project(F5) and hover your cursor over

'different items in the list box and they will be

'displayed in a tooltip and in Text1.