I have had many letters which have asked me how to you display in a tooltip or some other means, such as a text box, the current item's text in a list box which the mouse pointer is hovering over. I now have the answer which uses the SendMessage API. Start A new Standard-EXE project, form1 is created by default. Add a list box and a text box to form1. Open up the code window for Form1 and type the following 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.