VB.Net by API/System/Timer

Timer.Interval

<source lang="vbnet"> 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

 </source>

Timer.Start()

<source lang="vbnet">

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

 </source>

Timer.Tick

<source lang="vbnet"> 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

 </source>