************************************************** **
عرض الزمن والتاريخ
timer نضع أداة توقيت
ثم نكتب الكود التالى فى الحدث لود للفورم
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
ثم نكتب الكود التالى فى التايمر
Private Sub Timer1_Timer()
Label1 = Time & Date
End Sub