Mega Code Archive

 

Categories / VB.Net by API / System

 

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