Sub Globals
Dim spinnerMap As Map
Dim spinner1 As Spinner
End Sub
Sub Activity_Create(FirstTime As Boolean)
spinnerMap.Initialize
'initialize spinner1 by code or with designer...
spinner1.Add("item 1")
spinnerMap.Put("item 1", "id 1")
spinner1.Add("item 2")
spinnerMap.Put("item 2", "id 2")
spinner1.Add("item 3")
spinnerMap.Put("item 3", "id 3")
End Sub
Sub Spinner1_ItemClick (Position As Int, Value As Object)
Dim id As String
id = spinnerMap.Get(Value)
End Sub