Programalama > VISUAL BASIC.NET

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.

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