aryajonbesh

ممنون از زحمات تک تک عزیزان، علی الخصوص آقای ایزدی عزیز

EditText1.Initialize("EditText") EditText2.Initialize("EditText") EditText3.Initialize("EditText") EditText1.Tag = EditText2 EditText2.Tag = EditText3 EditText3.Tag = EditText1 Sub EditText_EnterPressed Dim currentView, nextView As View currentView = Sender nextView = currentView.Tag nextView.RequestFocus End Sub