Dim lItemCount As Long
Const LVM_FIRST = &H100
Const LVM_GETITEMCOUNT As Long = LVM_FIRST + 4
lItemCount = SendMessage(ListView1.hWnd, LVM_GETITEMCOUNT, 0, 0)
' Alternativt:
lItemCount = ListView1.ListItems.Count