［VB2008］

トピ主です。
長い間、こちらに顔出せず、申し訳ございませんでした。
多くのご意見ありがとうございます。
たしかに、マスクのランダムう表示は、入力した桁数を確認できず、不便だとは思いますが、
ウェブサイトを閲覧していると、マスクの数がランダムで表示されているページを
見かけましたので、チャレンジしてみました。

今現在、ランダムステートメントを用いてコーディングし、
ボタンを押した際に、マスクの文字数をランダムで変えるようにしてみたのですが、
うまくいきませんでした。

    Private Sub Txt1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtUserID.TextChanged

        Randomize()

        Dim musk As String

        Select Case 1 + CInt(Rnd() * 2) 

            Case 1

                musk = "*"

            Case 2

                musk = "**"

            Case 3

                musk = "***"

            Case Else

                musk = "*"

        End Select

        Txt1.PasswordChar = musk

    End Sub