文本框中时间问题

liaoqiang234

有一文本框 固定格式日期时间
如：2010/01/28 08:00

现在有一问题,想通过键盘来实现小时自动加或减(光标在文本框中)
键盘上的向上键按一下,2010/01/28 09:00,自动加1小时
键盘上的向下键按一下,2010/01/28 07:00，自动减1小时


请各位大师开拓思维,不知道能不能实现

ACMAIN_CHM

Private Sub Text0_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case 38
            Text0.Value = DateAdd("h", 1, Text0.Value)
        Case 40
            Text0.Value = DateAdd("h", -1, Text0.Value)
    End Select
End Sub