VB.Net by API/System/Timer

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

Timer.Start()

  

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

Timer.Tick

  
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