vb小问题

Private Sub Command1_Click()
If Trim(Text1.Text) = "admin" And Trim(Text2.Text) = "111" Then
Frmmain.Show
Text1.Text = ""
Text2.Text = ""
Form1.Hide
Else
MsgBox "密码错误，请重新登陆！"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End IfEnd SubPrivate Sub Command2_Click()
Unload Me
End Sub
这是用vb编的一个图书馆登录界面，我是想每当输入密码为数字时，而在文本框显示却是*号组成的，比如输入111.显示为***，怎样才能实现这个功能？哪位帮忙看看吧