いつもお世話になっています。

ボタンをクリックしたら、パスワードを入力する画面を表示して、その入力値により
エラーメッセージを出したり、フォームを表示したりしたいと思っています。
現在は以下のようなプログラムを組んでいます。

   Dim Psword as string

   Psword = InputBox ("パスワードを入力してください。","パスワードの確認","")
   if Psword = "" then
        exit sub
   elseif Psword ="パスワード" then
        call 次期フォーム
   elseif Psword <> "パスワード" then
        MsgBox "パスワードが違います。"
        exit sub
   end if

のようにしていますが、パスワードを入力するとき、"*"で表示したいと思っています。
色々と探してみましたが表示する方法が見つかりませんでした。
表示する方法を知っている方がいらっしゃいましたら教えていいただけないでしょうか？
また、InputBoxではなく、他の関数なのでできる方法がありましたら教えてください。
（パスワード入力用のフォームの作成以外でお願いします。）

開発環境 VB6 SP6
         WindowsXP

可能は可能です。
http://www.freevbcode.com/ShowCode.asp?ID=1214

>
> 可能は可能です。
> http://www.freevbcode.com/ShowCode.asp?ID=1214

だいさん、ご返事ありがとうございます。
しかし、上記アドレスにアクセスしようとしても「ページが見つかりません」と表示されます。
申し訳ありませんが、もう一度参考になるページのアドレスを教えていただけないでしょうか。
お手数ですがよろしくお願いします。

> >
> > 可能は可能です。
> > http://www.freevbcode.com/ShowCode.asp?ID=1214
>
> だいさん、ご返事ありがとうございます。
> しかし、上記アドレスにアクセスしようとしても「ページが見つかりません」と表示されます。
> 申し訳ありませんが、もう一度参考になるページのアドレスを教えていただけないでしょうか。
> お手数ですがよろしくお願いします。

頭に「h」を足して「http://〜」ってなるようにすれば見れると思いますが。

nanashiさん、初歩的なことでお聞きして申し訳ありませんでした。
無事、記載のアドレスにアクセスすることができました。

そして、だいさん、ありがとうございました。
英語記載のホームページでコードの意味はあまり理解できませんでしたが、
コードを、コピー・貼り付けしたら、希望通りIuputBoxでの文字を"*"文字で
表示することができました。
本当にありがとうございました。