Greetings all, this is wad i've done..

<code>
Private Sub txtPin_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If txtPin.Text = "1234" Then
labelErrorAccount.Visible = True
labelErrorAccount.Caption = "Login Successful."
txtPin.Visible = True

Unload Me
Load frmAccount
frmAccount.Show

Else
labelErrorAccount.Caption = "Sorry, your PIN number is invalid"
labelErrorAccount.Visible = True

End If
End If

End Sub

</code>


Ok when the pin is correct, it doesnt displays "Login Successful." it straight away unloads the form and load another form. how do i make it wait for like 3seconds so it would display login successful then unload the form?