Textbox 3

Eén groot (txtMain) en drie kleine tekstvakken: txtHide, txtPW en txtASCII.
De letter in txtHide gaan we niet tonen in txtMain. Bovendien zorgt de cijfercode ervoor dat als het teken met die code wordt ingetikt, er een boodschap verschijnt
Private Sub txtMain_KeyPress(KeyAscii As Integer)
If Not txtHide.Text = "" Then If KeyAscii = Asc(Left(txtHide.Text, 1)) Then KeyAscii = 0
If Not txtASCII.Text = "" Then
If KeyAscii = CInt(txtASCII.Text) Then MsgBox txtMain.Text
End If
End Sub
De letter in txtPW is het paswoordteken in txtMain.
Private Sub txtPW_Change()
txtMain.PasswordChar = Left(txtPW.Text, 1) '[In .NET doe je dit met Mid.]
End Sub
In txtASCII mogen alleen cijfers staan. Daarom:
Private Sub txtASCII_KeyPress(KeyAscii As Integer)
If KeyAscii > Asc(9) And KeyAscii < Asc(0) Then KeyAscii = 0
End Sub
Je kan het project hier downloaden.