Sub edtTest11_EnterPressed
CallSubDelayed2(Me, "SetFocus", edtTest12)
End Sub
Sub edtTest21_EnterPressed
CallSubDelayed2(Me, "SetFocus", edtTest22)
End Sub
Sub edtTest22_EnterPressed
CallSubDelayed2(Me, "SetFocus", edtTest23)
End Sub
Sub edtTest23_EnterPressed
CallSubDelayed2(Me, "SetFocus", edtTest24)
End Sub
Sub SetFocus(edt As EditText)
edt.RequestFocus
End Sub