ازاى اعمل كود الاسهم

اخى تفضل الاكواد اللازمه

Rem:http://forum.eg-pro.com/
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 40 Then Text2.SetFocus
End Sub
Rem:http://forum.eg-pro.com/
Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 40 Then Text3.SetFocus
If KeyCode = 38 Then Text1.SetFocus
End Sub
Rem:http://forum.eg-pro.com/
Private Sub Text3_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 40 Then Text4.SetFocus
If KeyCode = 38 Then Text2.SetFocus
End Sub
Rem:http://forum.eg-pro.com/
Private Sub Text4_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 40 Then Text5.SetFocus
If KeyCode = 38 Then Text3.SetFocus
End Sub
Rem:http://forum.eg-pro.com/
Private Sub Text5_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 40 Then Text6.SetFocus
If KeyCode = 38 Then Text4.SetFocus
End Sub
Rem:http://forum.eg-pro.com/
Private Sub Text6_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 38 Then Text5.SetFocus
End Sub

بالتوفيق ان شاء الله

شكرا جزيلا يا اخي لى مطلب اخر

عملت برنامج لمعمل التحاليل لكن اريد اضافة احصائية بعدد انواع التحاليل المعمولة

ازاى ؟؟ ولو فيه كود معمول ممكن حد يضيفه