Sub ForceNext(et As EditText)
Dim r As Reflector
r.Target = et
r.RunMethod2("setImeOptions", 5, "java.lang.int")
End Sub
Sub txtBoxes_FocusChanged(Hasfocus As Boolean)
Dim Send As EditText
Send=Sender
If Hasfocus Then
Send.SelectionStart = Send.Text.Length
Send.SelectAll
ForceNext(Send)
End If
End Sub