timer控件的间隔是20秒，现在已经计时了10秒，我想让它从现在开始20秒后再产生TIMER事件，怎么办啊？

Question

如题。

Answer 1

Private Sub Form_Load()
Timer1.Interval = 10000
Debug.Print Now
End SubPrivate Sub Timer1_Timer()
Timer1.Interval = 20000
Debug.Print Now
End Sub

Answer 2

用2个timer得了，这么费劲干什么？

Answer 3

-_-#
Private Sub Form_Load()
Timer1.Interval = 30000
Debug.Print Now
End Sub

Answer 4

Private Sub Command1_Click()
Timer1.Enabled = False
Timer1.Interval = 20000
Timer1.Enabled = True
End Sub

Answer 5

Timer1.Enabled = False
    Timer1.Enabled = True
这样它从头开始再计时了。