[vbnet]

.....

منقول

كود :

Private Sub Form_Load()
    ' يمكن الإستغناء عن هذا السطر بضبط هذه الخاصية عن طريق خصائص الفورم
    Me.KeyPreview = True
    
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    On Error Resume Next
    If KeyAscii = vbKeyReturn Then
        KeyAscii = 0
        Dim i As Long: For i = Me.Count - 1 To 0 Step -1
            If Me.Controls(i).Name = Me.ActiveControl.Name And TypeName(Me.Controls(i - 1)) = "TextBox" Then
                Me.Controls(i - 1).SetFocus
                Exit For
            End If
        Next i
    End If
End Sub

.....