Android Question B4XComboBox not hiding keyboard when user goes to select item.

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

AddTouchEventToSpinner(B4XComboBox1.cmbBox)