VisualBasic.Net / Forma Tarih Ve Saat Ekleme

Al kardeşim sana benden bir örnek form içine timer ve 2 adet label ekle timer.tickin alt kısmına ekledıgın herşey saniyede bir yenilenir timer intervalini 1000 yerine 10000 yaparsan 10 saniyede bir yeniler.[/COLOR][/SIZE][/FONT][/CENTER]
[FONT=Trebuchet MS][SIZE=6][COLOR=#8000ff]
[CENTER] 
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label1.Text = TimeOfDay
        Label2.Text = Today
     
        Dim timer As New Timer()
        timer.Interval = 1000
        AddHandler timer.Tick, AddressOf timer_Tick
        timer.Start()
    End Sub
 
    Private Sub timer_Tick(ByVal sender As Object, ByVal e As EventArgs)
        Me.Label1.Refresh()
        Me.Label2.Refresh()
        Label1.Text = TimeOfDay
        Label2.Text = Today
    End Sub