Private Sub btnEye_Click()
txtPW.InputMask = ""
PauseApp (4)
txtPW.InputMask = "Password"
End Sub
Public Sub PauseApp(PauseInSeconds As Single)
Dim sngStart As Single
sngStart = Timer
Do While sngStart + PauseInSeconds > Timer
Loop
End Sub
Just to confirm, the password is already hidden by default using the Input Mask property?