(1)Private Sub Form_Load()
Text1.PasswordChar = "*"
End Sub
(2)Private Sub Command1_Click()
Text1.PasswordChar = ""
End Sub
(3)Private Sub Command2_Click()
Text1.PasswordChar = "?"
End Sub
(4)Private Sub Command3_Click()
Text2.Text = Text1.Text
End Sub