Private Sub pwd_hide_Click()

    Me.txtPassword.SetFocus

    passwordShowHide

End Sub



Private Sub pwd_show_Click()

    Me.txtPassword.SetFocus

    passwordShowHide

End Sub



Private Sub passwordShowHide()

    If (pwd_show.Visible = True) Then

        pwd_show.Visible = False

        pwd_hide.Visible = True

        Me.txtPassword.Format = "Password"

    Else

        pwd_show.Visible = True

        pwd_hide.Visible = False

        Me.txtPassword.Format = ""

    End If

End Sub

Text0.InputMask = "Password"

(09/05/2020, 11:25)accessman yazdı:

Text0.InputMask = "Password"

şeklinde imiş