怎样按回车键转移控件焦点

[snow000]

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 9
End If
End Sub
这样不行，怎么才可以怎样按回车键转移控件焦点，请高手指点！

[hhjjhjhj]

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
sendkeys chr(9)
End If
End Sub

[现在还是人类]

来晚了