عملت البرنامج كله ودى اللى وقفت قدامى

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
	If KeyCode = 13 Then SendKeys "{tab}"
End Sub

عبدالفتاح حسن كتب:

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
	If KeyCode = 13 Then SendKeys "{tab}"
End Sub

انا متشكر جدا جدا

كان ليا طلب تانى لو امكن يعنى عايز التكست تكون جاهز لادخال بيانات فيها يعنى اى كلام فى التكست يكون متعلم عليه باللون الازرق بمجرد الانتقال للتكست دى

وشكرا ليك جدا على المساعده

Private Sub Text1_GotFocus()
	Text1.SelStart = 0
	Text1.SelLength = Len(Text1)
End Sub

أكتب في التيكست الأول تحت حدث keypress

ما يلي

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then Text2.SetFocus

End Sub

بالنسبة للسؤال الثاني لم أفهم عليك ماتريد

أرجو صياغة السؤال مرة أخرى

وشكرا