Public Class Form1
    Dim HNUM As Integer
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        My.Computer.Audio.Play(My.Resources.hacker, _
    AudioPlayMode.Background)
        Timer1.Start()
        Timer2.Start()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        HNUM = HNUM + 1
        If HNUM < 16 Then
            TextBox1.Text = "01110110010100101010101001010101010010101001010101010101001010010101010101010011 HACKING " & HNUM & " DATABASE(S) 011101100101001010101010010101010100101010010101010101010010"
        End If
        If HNUM > 15 Then
            TextBox1.Text = "dreaNMING IN DIDGTAL"
        End If
        If HNUM > 20 Then
            TextBox1.Text = "LIVG IN REAL TIME"
        End If
        If HNUM > 21 + 5 Then
            TextBox1.Text = "THNIKIGN IN BINARY"
        End If
        If HNUM > 21 + 10 Then
            TextBox1.Text = "TALKING IN OUR TE"
        End If
        If HNUM > 21 + 16 Then
            TextBox1.Text = "dreaNMING IN DIDGTAL"
        End If
        If HNUM > 21 + 22 Then
            TextBox1.Text = "LIVG IN REAL TIME"
        End If
        If HNUM > 21 + 27 Then
            TextBox1.Text = "THNIKIGN IN BINARY"
        End If
        If HNUM > 21 + 33 Then
            TextBox1.Text = "TALKING IN OUR TE"
        End If
        If HNUM > 21 + 35 Then
            TextBox1.Text = "TWELCOME TO OUR WORLD"
        End If
        If HNUM > 21 + 38 Then
            Label1.Show()
            Label2.Show()
            Label3.Show()
            Label4.Show()
            PictureBox1.Show()
            CheckBox1.Show()
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        Dim rnd1 As New Random
        Dim mColor, mColor2 As Color
        ProgressBar1.Value = CStr(RandomNum(0, 100))
        mColor = Color.FromArgb(rnd1.Next(0, 256), rnd1.Next(0, 256), rnd1.Next(0, 256))
        mColor2 = Color.FromArgb(rnd1.Next(0, 256), rnd1.Next(0, 256), rnd1.Next(0, 256))
        Me.ForeColor = mColor
        TextBox1.ForeColor = mColor
        If CheckBox1.Visible = True Then
            TextBox1.BackColor = mColor2
        End If
        Label1.Text = CStr(RandomNum(0, 2))
        Label2.Text = CStr(RandomNum(0, 2))
        Label3.Text = CStr(RandomNum(0, 2))
        Label4.Text = CStr(RandomNum(0, 2))
        If CheckBox1.Checked = False Then
            CheckBox1.Checked = True
        Else
            CheckBox1.Checked = False
        End If

    End Sub
    Private Function RandomNum(ByVal Lowest As Long, ByVal Highest As Long) As Long
        RandomNum = Int((Highest - Lowest) * Rnd() + Lowest)
    End Function
End Class