2楼不是告诉你了吗:
Dim a As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")Dim s As Date = a.Valuemessagebox.show(s, "yyyy-MM-dd")