الانتقال من اداة لاخرى باستخدام enter or space

من Text1 إلى Text2

1. بالضغط على زر Enter

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

بالضغط على زر Space

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

تحياتي .

شكرا لك ...