تفعيل زر الإدخال Enter ليعمل عمل مفتاح Tab

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then SendKeys "{tab}"
End Sub

ولكن لن يعمل أن كانت الـ Focus مع بعض الأدوات كالـ Command Buttons

جزاك الله خيراً .... سأجرب .. مع أني مش فاهم كلامك الأخير :

اقتباس

ولكن لن يعمل أن كانت الـ Focus مع بعض الأدوات كالـ Command Buttons

جرب و هتفهم قصدى.

هو شغال معاي تمام ... -waf