Carregando ProgressBar

'Componentes do form:
'1 - Botão
'Texto: Executar
'Nome: btnExecutar

'1 - ProgressBar
'======================================================================================
Public Class Form1
    Private Sub btnExecutar_Click(sender As Object, e As EventArgs) Handles btnExecutar.Click
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)

        If ProgressBar1.Value = "100" Then
            Timer1.Stop()
            ProgressBar1.Value = "0"
            MsgBox("Carregamento Completo")
        End If
    End Sub
End Class