Public Class Form1
Private Timer1 As New Timer
Private Timer2 As New Timer
Private Timer3 As New Timer
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Label1.Text = "Start."
AddHandler Timer1.Tick, AddressOf Me.Timer1_Tick
AddHandler Timer2.Tick, AddressOf Me.Timer2_Tick
AddHandler Timer3.Tick, AddressOf Me.Timer3_Tick
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Enabled = False
Timer1.Interval = 3000
Timer1.Start()
Label1.Text = "First."
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
Timer1.Stop()
Timer2.Interval = 4000
Timer2.Start()
Label1.Text = "Second."
End Sub
Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As EventArgs)
Timer2.Stop()
Timer3.Interval = 5000
Timer3.Start()
Label1.Text = "Third."
End Sub
Private Sub Timer3_Tick(ByVal sender As Object, ByVal e As EventArgs)
Button1.Enabled = True
Timer3.Stop()
Label1.Text = "End."
End Sub
End Class