Private Sub Form_Load()Me.Caption = "数字时钟"Timer1.Interval = 1000Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()Label1.Caption = Format(Now, "yyyy年m月d日")Label2.Caption = Format(Now, "hh时nn分ss秒")End Sub
非常简单,但你的图呢?