如何讓讓密碼顯示為星號？

goto2008

想實現(xiàn)現(xiàn)點擊一下，在輸入密碼12345時，顯示的是星號，而不是直接的密碼12345。
請教如何改下面的代碼。

Private Sub anniu_Click()
  If InputBox("輸入正確的密碼方可打開！", "請輸入密碼!", "請在此處輸入密碼") = "12345" Then
     DoCmd.OpenForm "AAA"
     Forms!BBBB.Visible = False
  Else
     MsgBox "密碼不對,請重新輸入密碼!", vbExclamation = vbOKOnly, "提示"
  End If
End Sub

asklove

網(wǎng)上找的-江羽的例子
你看看