难题？？？

Question

Private WithEvents Timer1 As TimerPrivate WithEvents Label1 As Label
Private Sub Form_Load()
Set Timer1 = Me.Controls.Add("vb.timer", "timer1", Me)
Set Label1 = Me.Controls.Add("vb.label", "label1", Me)
Label1.Move 100, 100, 3000, 1000
Label1.Visible = True
Timer1.Interval = 1000
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
Label1.Caption = "距午夜还有 " & DateDiff("s", Time, TimeSerial(24, 0, 0)) & " 秒！"
End Sub

Answer 1

Private Sub Timer1_Timer()
Label1.Caption = "现在时间是：" & Time
End Sub