Dim AdditionalValues As List 'global variable
AdditionalValues.Initialize
...
Spinner1.Add("item 1")
AdditionalValues.Add("value 1")
...
Sub Spinner_ItemClick (Position As Int, Value As Object)
Dim av As String = AdditionalValues.Get(Position)
End Sub