主题：[讨论]设置代码执行时间

计时器启用：True

间隔：1000

TimerTick事件：

Dim i As Integer
i + = 1
If i = 5 Then
    MessageBox.Show("第一段代码")
ElseIf i = 6 Then
    MessageBox.Show("第二段代码")
ElseIf i = 11 Then
    MessageBox.Show("第三段代码")
End If