Sub Activity_Create(FirstTime As Boolean)
'...
If FirstTime Then
Spinner1.Add("One")
Spinner1.Add("Two")
AddOnTouch(Spinner1, "Spinner1_onTouch")
End If
End Sub
Sub Spinner1_onTouch(V As Object, Action As Int, X As Float, Y As Float, MotionEvent As Object) As Boolean
Log("Spinner1_onTouch")
Return False
End Sub
Sub AddOnTouch(V As View, Event As String)
Private r As Reflector
r.Target = V
r.SetOnTouchListener(Event)
End Sub