Sub Globals
Dim sp As Spinner
End Sub
Sub Activity_Create(FirstTime As Boolean)
sp.Initialize ("sp")
sp.AddAll (Array As String ("name10,name11","name20,name22"))
Activity.AddView (sp,0,0,60%x,15%y)
End Sub
Sub sp_ItemClick (Position As Int, Value As Object)
Dim rt() As String
rt=Regex.Split (",",Value)
Msgbox(rt(0),"")
End Sub