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
|