كيف يمكن التنقل بين text

اذا اردت التنقل عن طريق الزر enter

اليك هذا الكود

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text2.SetFocus
End Sub

واذا اردت التنقل عن طريق الزر tab

حول خاصية TabIndex لل Text1 مرتبة بالارقام مثل

Text1.TabIndex = 0
Text2.TabIndex = 1
Text3.TabIndex = 2
Text4.TabIndex = 3
Text5.TabIndex = 4
Text6.TabIndex = 5

اذا كان لديك text1 والمؤشر بها وتريد عند الضغط علي enter ينتقل الي text2

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Text1 = ""
if KeyCode=13 then
Text2.SetFocus
else
end if 
End Sub

مشكورين اخواني ماقصرتو