Dim hour, minisec, sec, min As Integer
    Private Sub Form3_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        hour = 0
        min = 0
        sec = 5
        minisec = 0
        Timer1.Enabled = True
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Enabled = True
        minisec -= 1
        If minisec < 0 Then
            sec -= 1 : minisec = 60
            If sec < 0 Then
                min -= 1 : sec = 59
                If min < 0 Then
                    hour -= 1 : min = 59
                    If hour < 0 Then hour = 0
                End If
            End If
        End If
        Label1.Text = sec + 1
        PictureBox1.Visible = True
        PictureBox2.Visible = False
        PictureBox3.Visible = False
        If hour = 0 And min = 0 And sec = 0 And minisec = 0 Then
            Timer1.Enabled = False
            sec = 3
            Timer2.Enabled = True
        End If
    End Sub
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Timer2.Enabled = True
        minisec -= 1
        If minisec < 0 Then
            sec -= 1 : minisec = 60
            If sec < 0 Then
                min -= 1 : sec = 59
                If min < 0 Then
                    hour -= 1 : min = 59
                    If hour < 0 Then hour = 0
                End If
            End If
        End If
        Label1.Text = sec + 1
        PictureBox1.Visible = False
        PictureBox2.Visible = True
        PictureBox3.Visible = False
        If hour = 0 And min = 0 And sec = 0 And minisec = 0 Then
            Timer2.Enabled = False
            sec = 6
            Timer3.Enabled = True
        End If
    End Sub
    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        Timer3.Enabled = True
        minisec -= 1
        If minisec < 0 Then
            sec -= 1 : minisec = 60
            If sec < 0 Then
                min -= 1 : sec = 59
                If min < 0 Then
                    hour -= 1 : min = 59
                    If hour < 0 Then hour = 0
                End If
            End If
        End If
        Label1.Text = sec + 1
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = True
        If hour = 0 And min = 0 And sec = 0 And minisec = 0 Then
            Timer3.Enabled = False
            sec = 5
            Timer1.Enabled = True
        End If
    End Sub