Dim oItem As ListViewItem
oItem = ListView1.Items.Add("Text1")
oItem.Tag = 100 ' ID

' Auslesen
If .SelectedItems.Count > 0 Then
  Dim Id As Long = .SelectedItems(0).Tag
  MsgBox(Id)
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de