Splash form(vb.net 2003)

 Private Sub Splash_timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Splash_timer.Tick

        ProgressBar1.Value += 2

        If ProgressBar1.Value <= 30 Then

            Label3.Text = "Initialized Application ....."

        ElseIf ProgressBar1.Value <= 50 Then

            Label3.Text = "Loading Data Component ....."

        ElseIf ProgressBar1.Value <= 70 Then

            Label3.Text = "Integration Database ...."

        ElseIf ProgressBar1.Value <= 100 Then

            Label3.Text = "Please Wait ...."

        End If

        If ProgressBar1.Value = 100 Then

            Splash_timer.Dispose()

            Me.Visible = False

            cur = New Login

            cur.Show()

        End If
    End Sub