Public Class Loading
    Public Class GlobalVariables
        Public Shared iR As Long
        Public Shared iG As Long
        Public Shared iB As Long
        Public Shared intStageNum As Long
    End Class

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        GlobalVariables.iR = 255
        GlobalVariables.iG = 0
        GlobalVariables.iB = 0
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Select Case GlobalVariables.intStageNum
            Case 0      'To change from Red to Yellow, just Green needs to go from 0 to 255 so we do this
                GlobalVariables.iG = GlobalVariables.iG + 1
                If GlobalVariables.iG = 255 Then GlobalVariables.intStageNum = GlobalVariables.intStageNum + 1
            Case 1      'we are now at (255, 255, 0) yellow, to go to green we need to reduce red to 0
                GlobalVariables.iR = GlobalVariables.iR - 1
                If GlobalVariables.iR = 0 Then GlobalVariables.intStageNum = GlobalVariables.intStageNum + 1
            Case 2      'now at (0, 255, 0)... to go to Cyan we need to go B to 255
                GlobalVariables.iB = GlobalVariables.iB + 1
                If GlobalVariables.iB = 255 Then GlobalVariables.intStageNum = GlobalVariables.intStageNum + 1
            Case 3      'now at (0, 255, 255)... for blue reduce green to 0
                GlobalVariables.iG = GlobalVariables.iG - 1
                If GlobalVariables.iG = 0 Then GlobalVariables.intStageNum = GlobalVariables.intStageNum + 1
            Case 4      'now at (0, 0, 255)... for magenta increase red to 255
                GlobalVariables.iR = GlobalVariables.iR + 1
                If GlobalVariables.iR = 255 Then GlobalVariables.intStageNum = GlobalVariables.intStageNum + 1
            Case 5      'now at (255, 0, 255)... and back to red reduce B to 0
                GlobalVariables.iB = GlobalVariables.iB - 1
                If GlobalVariables.iB = 0 Then GlobalVariables.intStageNum = GlobalVariables.intStageNum + 1
            Case Else
                GlobalVariables.intStageNum = 0
        End Select

        Me.BackColor = Color.FromArgb(GlobalVariables.iR, GlobalVariables.iG, GlobalVariables.iB) ' set form background

    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        Label1.Text = Val(Label1.Text + 1)
        Dim step1 As Long = Val(Val(Label1.Text - 0) * 1)
        Dim step2 As Long = Val(Val(Label1.Text - 15) * 3)
        Dim step3 As Long = Val(Val(Label1.Text - 30) * 4)
        Dim step4 As Long = Val(Val(Label1.Text - 40) * 6)


        If Label1.Text >= 0 Then
            Label2.Text = "fetching.... " & step1 & "%"
            If step1 >= 100 Then
                Label2.Text = "fetching.... " & "100" & "%"
            End If
        End If
        If Label1.Text >= 15 Then
            Label2.Text = "clearing browser history.... " & step2 & "%"
            If step2 >= 100 Then
                Label2.Text = "clearing browser history.... " & "100" & "%"
            End If
        End If
        If Label1.Text >= 45 Then
            Label2.Text = "eating your cereal.... " & step3 & "%"
            If step3 >= 100 Then
                Label2.Text = "eating your cereal.... " & "100" & "%"
            End If
        End If
        If Label1.Text >= 40 Then
            Label2.Text = "deleting system32.... " & step4 & "%"
            If step4 >= 100 Then
                Label2.Text = "enjoy your stay.... " & "100" & "%"
            End If
        End If


        If Label1.Text = 70 Then
            Form2.Show()
            Me.Close()
        End If


    End Sub
End Class