Login formunda şu kod ile

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

şifreyi gizleyip göstermek istiyorum ama olmadı nasıl yazmam lazım