Code Progress Vb.net

------------------------------------------------

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

        If ProgressBar1.Value = 100 Then
            Label1.Visible = True

            Dim Obj As New Add
            Obj.Show()
            Me.Hide()
            Timer1.Enabled = False

        End If
        Label2.Text = ProgressBar1.Value & ("%")
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Start()
        Label1.Visible = False
    End Sub

End Class

-----------------------------------------