Private Sub Form_Load()
Me.Caption = "数字时钟"
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Format(Now, "yyyy年m月d日")
Label2.Caption = Format(Now, "hh时nn分ss秒")
End Sub
Private Sub Form_Load()
Me.Caption = "数字时钟"
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Format(Now, "yyyy年m月d日")
Label2.Caption = Format(Now, "hh时nn分ss秒")
End Sub
