[FONT=Courier New][SIZE=2]'Öncelikle bir adet label nesnesi ve bir adet timer ekleyin. Timer nesnesinin interval özelliğini 1000 yapın.
'Timer1 i çift tıklatınca açılan kod sayfasına label1.caption=time diyin. Label üzerinde saat çalışacaktır.
'Tarih için ise label1.caption=date demelisiniz.

[/SIZE][/FONT]Private Sub Timer1_Timer()
Label1.Caption = Date
Label2.Caption = Time
End Sub