سورس Focusing controls with carriage returns ویژوال بیسیک

Don't forget to set the form's KeyPreview property to True.

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