Private Sub Datei1_MouseMove(Index As Integer, Button As Integer, Shift As _
  Integer, x As Single, y As Single)
    ' Mit Hilfe des ermittelten Index, wird der Dateiname an ToolTip übergeben
    Datei1(glngFileList).ToolTipText = Datei1(glngFileList).List( _
      FileListBoxHitTest(Datei1(glngFileList), x, y))
End Sub
 
'Übergibt den unter dem Mauszeiger befindlichen Index
Public Function FileListBoxHitTest(FileListBox As FileListBox, ByVal x As _
  Single, ByVal y As Single) As Long
  Dim nXPoint As Long
  Dim nYPoint As Long
  Dim nIndex As Long
 
  nXPoint = x / Screen.TwipsPerPixelX
  nYPoint = y / Screen.TwipsPerPixelY
 
  With FileListBox
    'Hier wird der Index(Dateiname) unter dem Mauszeiger ermittelt
    nIndex = SendMessage(.hwnd, LB_ITEMFROMPOINT, 0, nYPoint * 65536 + nXPoint)
    If (nIndex And &H10000) = &H10000 Then
      FileListBoxHitTest = -1   'Mauszeiger befindet sich innerhalb der 
      ' Listbox, aber nicht über einer Datei
    Else
      FileListBoxHitTest = nIndex
    End If
  End With
End Function