Sub Globals
Dim Spinner1 As Spinner
Dim myList(99) As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
myList(1) = "item1"
myList(2) = "item2"
myList(3) = "item3"
Spinner1.Initialize("TheSubThatWillHandleTheEvent")
'Spinner1.AddAll(Array As String("item1", "item2", "item3")) 'Another option
Spinner1.AddAll(myList)
Activity.AddView(Spinner1, 20dip, 20dip, 200dip, 60dip)
End Sub
Sub TheSubThatWillHandleTheEvent_ItemClick (Position As Int, Value As Object)
Activity.Title = Value
End Sub