Logging In using Progress Bar

Hi I've been trying this code using a Timer.

'progress bar
With ProgressBar1

.Value = .Value + 1

If .Value = 100 Then

Timer.Enabled = False

Close()

Dim PasswordForm As New frmLogin()
PasswordForm.Show()

End If

All I want to happen is when the value of Progress Bar is equal to Maximum then the Splash Screen (frmSplash) will close and the Log In Form will Show (frmLogin).
But using the code above, when the value of Progress Bar is equal to Maximum, The Log-In Show but both of the form is closed.
So what is the best thing to do?

Try to put this in the general declaration form .

VB Code:

Dim PasswordForm As New frmLogin()

and is this the startup form of your proj ?