Timer interval : Timer « GUI « VB.Net Tutorial

1. VB.Net Tutorial
2. GUI
3. Timer

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

14.90.Timer
	14.90.1.	Timer interval
	14.90.2.	Use Timer to refresh Label
	14.90.3.	Timer event
	14.90.4.	Timer Start and Stop
	14.90.5.	Scrolling Text by Timer
	14.90.6.	Use three timers
	14.90.7.	Set up an event handler for the Timer.Elapsed event, creates a timer, and starts the timer