在窗口的afterload事件设置这个控件的value属性
Dim t As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")t.Value = Date.Today.AddDays(-3)