Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As _
  Single, y As Single)
  ' ToolTip aktualisieren
  Dim oItem As ListItem
  Dim sToolTip As String
 
  With ListView1
    Set oItem = .HitTest(x, y)
    If Not oItem Is Nothing Then
      sToolTip = oItem.Text
    Else
      sToolTip = ""
    End If
 
    If .ToolTipText <> sToolTip Then
      .ToolTipText = sToolTip
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de