[VB6] Associare a listbox Campo DB + ID e recuperare ID al click

[Jupy64]

Ciao, prendi spunto da questo esempio

Private Sub Command1_Click()
   For i = 1 To 10
      List1.AddItem "descrizione_" & i
      List1.ItemData(List1.NewIndex) = i 'ID
   Next
End Sub

Private Sub List1_DblClick()
   If List1.ListCount > 0 Then
      MsgBox List1.ItemData(List1.ListIndex)
   End If
End Sub