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>