[boudyonline]

لنفترض أن لديك عدد 2 مربع نص وسيتم التنقل بينهما باستخدام مفتاح ENTER

أدخل الكود في التالي حدث Keypress لكل مربع نص

كود :

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

كود :

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