Version 1.00
BEGIN Form Form7
AutoRedraw = 0
BackColor = QBColor(7)
BorderStyle = 2
Caption = "Form7"
ControlBox = -1
Enabled = -1
ForeColor = QBColor(0)
Height = Char(17)
Left = Char(15)
MaxButton = -1
MinButton = -1
MousePointer = 0
Tag = ""
Top = Char(3)
Visible = -1
Width = Char(63)
WindowState = 0
BEGIN TextBox Text1
BackColor = QBColor(7)
BorderStyle = 1
DragMode = 0
Enabled = -1
ForeColor = QBColor(0)
Height = Char(3)
Left = Char(0)
MousePointer = 0
MultiLine = 0
ScrollBars = 0
TabIndex = 0
TabStop = -1
Tag = ""
Text = "Text1"
Top = Char(0)
Visible = -1
Width = Char(42)
END
BEGIN TextBox Text2
BackColor = QBColor(7)
BorderStyle = 1
DragMode = 0
Enabled = -1
ForeColor = QBColor(0)
Height = Char(3)
Left = Char(0)
MousePointer = 0
MultiLine = 0
ScrollBars = 0
TabIndex = 1
TabStop = -1
Tag = ""
Text = "Text2"
Top = Char(3)
Visible = -1
Width = Char(42)
END
BEGIN Timer Timer1
Enabled = -1
Interval = 0
Left = Char(0)
Tag = ""
Top = Char(6)
END
END
OPTION EXPLICIT
DECLARE SUB Timer1_Timer ()
SUB Form_Load ()
Timer1_Timer
timer1.interval = 1000
END SUB
SUB Timer1_Timer ()
text1.text = FORMAT$(NOW, "dd-mmm-yy")
text2.text = FORMAT$(NOW, "hh:mm:ss AM/PM")
END SUB