كود عرض الوقت و التاريخ

'ضع الكود في الفورم

Private Sub Form_Load()

Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

Label1 = Time & Date

End Sub