Public Class Form1

    Private Sub btnInstall_Click(sender As Object, e As EventArgs) Handles btnInstall.Click
        ' Starts timer, hides install button, and plays gif/progress bar
        tmrTimer.Start()
        pBar.Value = 0
        btnInstall.Visible = False
        gifHacker.Visible = True
        gifHacker.Enabled = True
        pBar.Visible = True
    End Sub

    Private Sub tmrTimer_Tick(sender As Object, e As EventArgs) Handles tmrTimer.Tick
        ' Stars timer
        pBar.Increment(1)
        tmrTimer.Interval = (1000)
    End Sub
End Class