design your form should look something like on the picture then put the codes Design a window that displays the current month, day, and year. Also, display the current time, updating it every second (look into the Timer control). Make the window look something like a calendar page. Play with object properties to make it pretty. Properties: Form frmCalendar: Caption = My Calendar BorderStyle = 1 - Fixed Single Timer timDisplay: Interval = 1000 Label lblDay: Caption = Sunday FontName = Times New Roman FontBold = True FontSize = 24 Label lblTime: Caption = 00:00:00 PM FontName = Times New Roman FontBold = True FontSize = 24 Label lblYear: Alignment = 2 - Center Caption = 1998 FontName = Times New Roman FontBold = True FontSize = 24 Label lblNumber: Alignment = 2 - Center Caption = 31 FontName = Arial FontBold = True FontSize = 72 Label lblMonth: Alignment = 2 - Center Caption = March FontName = Times New Roman FontBold = True FontSize = 24 Code: General Declarations: Option Explicit timDisplay Timer Event: Private Sub timDisplay_Timer() Dim Today As Variant Today = Now lblDay.Caption = Format(Today, dddd) lblMonth.Caption = Format(Today, mmmm) lblYear.Caption = Format(Today, yyyy) lblnumber.Caption = Format(Today, d) lblTime.Caption = Format(Today, h:mm:ss ampm) end sub run the program and enjoy :):):):) dont forget to like !!!!!!
Posted on: Sun, 16 Mar 2014 11:33:47 +0000
Trending Topics
Recently Viewed Topics
© 2015