Private Sub AddTouchEventToSpinner(Spinner As Spinner)
Dim r As Reflector
r.Target = Spinner
r.SetOnTouchListener("Spinner_Touch")
End Sub
Private Sub Spinner_Touch (ViewTag As Object, Action As Int, X As Float, Y As Float, MotionEvent As Object) As Boolean
If Action = 0 Then
Dim ime As IME 'ignore
ime.HideKeyboard
End If
Return False
End Sub