Private Sub List1_MouseMove(Index As Integer, Button As Integer, _
   Shift As Integer, X As Single, Y As Single)
 
   'ToolTipText abhängig von Position in der Liste anzeigen
   List1(Index).ToolTipText = List1(Index).List(Int(Y / 194.4))
 
   If List1(0).List(Int(Y / 194.4)) = "" Then
      List1(0).ToolTipText = "xxxxxxxxx"
   End If
End Sub

Das funktioniert soweit auch super, solange die Liste nicht so lang wird, dass ein Scrollbalken erscheint und ich nach unten scrolle...
Hat jemand eine Idee, wie ich das auch für diesen Fall hinbekomme?

Nuld