紧急！DTPicker 竟不支持回车按键的事件。如何解决？

Question

Private Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then txt.SetFocus
End Sub

Answer 1

Private Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = 13 Then
      Command1.SetFocus
   End If
End Sub

Answer 2

Private Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer)
   If KeyCode = 13 Then
      sendkeys "{tab}"
   End If
End Sub

Answer 3

以上全错！！！！If KeyCode = 13 Then
这句永不成立。不信你试试。有32（空格）事件，
就是没回车。请看清题目。

Answer 4

Private Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Text2.SetFocus
    End If
End Sub
好用呀

Answer 5

SORRY，是我弄错了，我捕的是KEYPRESS事件。
多谢各位。
结帐。