Timer.Interval : Timer « System « VB.Net by API






Timer.Interval

  

imports System
imports System.Drawing
imports System.Windows.Forms

public class Timers : inherits Form

  dim lblTime as Label

  public sub New()
    Size = new Size(300,100)

    lblTime = new Label()
    lblTime.Parent = me
    lblTime.Size = new Size(200, 25)
    lblTime.Location = new Point(20,20)
    lblTime.BorderStyle = BorderStyle.FixedSingle
    lblTime.TextAlign = ContentAlignment.MiddleCenter

    dim t as new Timer()
    t.Interval = 100
    t.Start()
    AddHandler t.Tick, AddressOf t_Tick
  end sub

  public shared sub Main() 
    Application.Run(new Timers())
  end sub

  private sub t_Tick(ByVal sender as object,ByVal e as EventArgs)
    lblTime.Text = DateTime.Now.ToString("dddd, MMMM d, yyyy  h:mm:ss tt")
  end sub
end class

   
    
  








Related examples in the same category

1.Timer.Start()
2.Timer.Tick