主题：如何执行某个现成的事件？

试一试我的理解：
e.Form.Controls("DateTimePicker1").Select()
Sendkeys.Send({ENTER})            ‘这两行代码并没有使日期改变呀～ 

要不先清空DateTimePicker1后，再赋值呢。  

也许：e.Form.Controls("DateTimePicker1").Value = Date.Today
改为：e.Form.Controls("DateTimePicker1").Text = Date.Today
     其他地方有时会这样，改一下就ok，不知道你的行不行？ 
或者多一个来回（重复下面代码？）：
e.Form.Controls("DateTimePicker1").Select()
Sendkeys.Send({ENTER})     》》》  或者是这个原因：Sendkeys.Send("{ENTER}")

afterload后，e.Form.Controls("1").Value 就应该是原始值，没有变化就不会动态改变列表框的内容。   帮助中是这样说的：

Value

字符型，返回或设置组合框的值。

注意Value和Text两个属性的不同：

1、通常两者返回的内容是相同的，但是在输入的过程中，两者会有所差别。例如有一个组合框，它最初的内容是"中国"，此时其Text和Value属性的内容都是“中国”，现在选择该组合框进行编辑，输入“中华”，此时Text的内容是“中华”，而Value的还是“中国”,输入结束，选择其它控件，此时该控件的Text和Value属性都是“中华”。通俗一点：Value返回的是控件已经输入完成的值，而Text返回的是控件中显示的文本内容，它会随着编辑的进行，而不断地变化。

2、Value属性是可读写的，而Text属性是只读的，如果你要设置组合框的值，只能通过Value属性。

不知道对DateTimePicker是否也一样？