AfterLoad
Dim dtpck As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")dtpck.Value = Year(Date.Today) & "-05-01"