先将Form的KeyPreview改为True Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0 SendKeys "{Tab}" End If End Sub