时间控件默许显示当前时间

时间控件默认显示当前时间
我做一个时间控件，想要在用他的时候拉出来就显示当前时间，怎么样设置。
------解决方案--------------------

'建立一个用户控件，在上加入日期控件、Label和Timer

'

Public Class 日期控件

    Sub New()


        ' 此调用是设计器所必需的。

        InitializeComponent()


        ' 在 InitializeComponent() 调用之后添加任何初始化。

        Me.Label1.Text = Now.ToString("HH:mm:ss")


    End Sub


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Me.Label1.Text = Now.ToString("HH:mm:ss")

    End Sub

End Class

------解决方案--------------------

------解决方案--------------------

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        DateTimePicker1.Value = Date.Now

    End Sub

------解决方案--------------------
      DateTimePicker1.Value = Date.Now