Open a form with password



I need to open a specific form with a password
I writed this code that works fine but with a limitation. The users can see
the password during typing, instead to see ****** as usual
Anyone can help me ?
sorry for the italian words inside
Regards
Diego

Dim strInputBox As String, bytChoice As Byte
Dim ctl As Control
InputPoint:
strInputBox = InputBox("Inserisci la password.", "Area Protetta da password!
")
If Len(strInputBox) > 0 Then
If strInputBox <> "pippo" Then
bytChoice = MsgBox("Password non corretta" & vbNewLine & vbNewLine &
"Vuoi riprovare ?", vbExclamation + vbYesNo, "Warning")
If bytChoice = vbYes Then
GoTo InputPoint
Else
Cancel = True
End If
Else
DoCmd.OpenForm ("Campi_Report")

End If
Else
'Cancel = True
'End If

--
Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/Forums.aspx/access-formscoding/200809/1

.