VB數位日期時鐘

先在專案中加入兩個Label.一個將作為顯示日期用.一個將作為顯示時間用

專案中再加入一個Timer物件.物件中程式碼加入以下

Private Sub Timer1_Timer()
Label1 = Date$
Label2 = Time$
End Sub

在其Timer物件中的性質Interval中的數值為1000

專案中畫面應為下圖

運行後將會變為下圖.可將這組合加在任一專案中成為數位日期時鐘