主题：请教窗口自动显示时间问题

我设计窗口中有一个DateTimePicker日期输入框,格式是时间(time),想实现打开窗口后自动输入当前时间,代码如下:

Dim t As Date = Date.Now()

Dim dp1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker")

dp1.DateTimeFormat = DateTimeFormatEnum.Time

dp1.Value= t

没有实现,请教如何处理.