In VB 6.0 e precedenti il codice è il seguente:
Dim strItemScelto as String
Dim lngItemValue as Long
With lstElenco
If .ListIndex = - 1 then Exit Sub
strItemScelto = .List(.ListIndex)
lngItemValue = .ItemData(.ListIndex)
End With
Normalmente viene usato nell'evento Click o Change