如何书写在form自动插入系统时间的代码？

Private Sub Form_Load()
Label1.Caption = Now
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Now
End Sub

Private Sub Form_Load()
   
  Label1.Caption = Time
  Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
  Timer1.Interval = 1000
  
End Sub

3楼的代码有点问题。但原理没错。

还有，时间不要定这么长。容易出现 与系统秒数稍不同步的显示。

要说原理没错，并且能达到要求的是2楼的代码，我们可以认为2楼在设计阶段就设计好默认定时器启动了。3楼仅启动一个定时器，什么都没干，算什么原理，并且没有特殊算法需要，设置Interval 只需要在timer事件外设置一次即可，每次timer事件都设置是降低程序运行效率的不合理做法，完全不应提倡。

应该对不起， Timer1.Interval = 1000，这里的数字可以改为500和800之间的数字，如果要求不高，1000应该能满足需求。应该放在Form_Load里边，放错地方了。
谢谢5楼指教。
应该是
Private Sub Form_Load()
   
  Label1.Caption = Time
  Timer1.Enabled = True
　Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()
　　Label1.Caption=Time   
End Sub