Visual Basic - List1 con Tooltiptext

Hola a todos..
Tengo un contol List1 y quiero que al pasear el mouse por encima del item que tiene cargado este item se muestre en una cajita como con en el ToolTipTex.
Como se hace eso??
Gracias de antemano por su tiempo..
Atm
Gilberto

Hola, se puede hacer con la API SendMessage y sin API's:

Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim AltoCaracter As Integer, i As Integer
AltoCaracter = List1.FontSize * 25
For i = 0 To List1.ListCount - 1
If Y > AltoCaracter * (i - List1.TopIndex) And Y < (AltoCaracter * i + AltoCaracter) Then
List1.ToolTipText = List1.List(i)
End If
Next i
End Sub

Feliz Navidad!!

Hola P3l3on..
Gracias -... me estas ayudando bsatante.. por lo menos creo que no me va a tocar quedarme la Nochebuena trabajando..!! !!!!
Gracias..