这个事件只有在控件的customformat中设定了自定义字符后才会引发,你先将控件的
customformat设定为:MM->(XXXX) dd->(XX) yyy
然后运行程序,可以看到在控件上的日期中间夹杂了两个括号,这就是所谓自定义域
点击该位置然后敲键盘,就会引发CallbackKeyDown事件例如:
Dim astr
Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
    astr = astr + Chr(KeyCode)
    CallbackField = astr
    Debug.Print KeyCode, CallbackField
End Sub