Campo nascosto in una Listview

[tas]

In Tag puoi mettere una stringa, di conseguenza anche un numero trasformato in stringa:

ListView1.ListItems(2).Tag = CStr(numero)

Eventualmente se hai più dati li potresti memorizzare così:

ListView1.ListItems(2).Tag = nome & "|" & cognome & "|" & eta

ed estrarli con la funzione Split.
Altrimenti potresti memorizzare i dati aggiuntivi in una collection di oggetti personalizzati:

'in un modulo di classe: Class1
Public nome As String
Public peso As Integer
Public natoil As Date

'nel form:

Private c As New Collection

Private Sub CaricaListView()
   Dim li As ListItem
   Dim i As Integer
   Dim key As String
   Dim dato As Class1

   For i = 1 To 10
      key = "key_" & i
      Set li = ListView1.ListItems.Add(, key, "Elemento " & i)
      li.SubItems(1) = ...
      Set dato = New Class1
      dato.nome = ...
      dato.peso = ...
      dato.natoil = ...
      c.Add dato, key
   Next
End Sub

In quest'ultimo esempio ho associato ad ogni item della listview una chiave unica key, la stessa che utilizzo per memorizzare i dati aggiuntivi nella collection c. Per estrarre i dati aggiuntivi:

Private Sub ListView1_ItemClick(ByVal Item As ListItem)
   Dim dato As Class1

   Set dato = c(Item.Key)

   Debug.Print dato.nome, dato.peso, dato.natoil
End Sub