Abri un nuevo proyecto y en el form1 coloca 1 listview y 1 label.
Luego pega este codigo en el formulario. Ciao:
Option Explicit
Private Sub Form_Load()
Dim ItemX As ListItem
Dim I As Integer
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "Col1"
For I = 1 To 1000
Set ItemX = ListView1.ListItems.Add(, , Int(Rnd() * 1000))
Next
End Sub
Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim ItemX As ListItem
Dim I As Integer
Set ItemX = ListView1.GetFirstVisible
If Not ItemX Is Nothing Then
For I = ItemX.Index To ListView1.ListItems.Count
If ListView1.ListItems(I).Top > y Then
Label1 = "Estas sobre el item " & ListView1.ListItems(I - 1).Text
Exit Sub
End If
Next
End If
End Sub