Sub Globals
Dim sp As Spinner
End Sub
Sub Activity_Create(FirstTime As Boolean)
sp.Initialize("sp")
sp.AddAll(Array As String("a", "b", "c", "d"))
Activity.AddView(sp, 10dip, 10dip, 200dip, 50dip)
End Sub
Sub Activity_Click
OpenSpinner(sp)
End Sub
Sub OpenSpinner(s As Spinner)
Dim r As Reflector
r.Target = s
r.RunMethod("performClick")
End Sub