Here is the code:
Option Compare Database
Private Sub btnPassward_Click()
If Me.btnPassward.Caption = "Hide" Then
Me.txtPassword.InputMask = True
Me.btnPassward.Caption = "Show"
Me.Form.TimerInterval = 5000
Else
Me.txtPassword.InputMask = "Password"
Me.Form.TimerInterval = 0...