什么代码可以实现在一个text的事件里面输入英文和数字都显示******的..?高手救下我吧

dim aaa#
dim bbb$
bbb$ =你的字符变量
aaa=len (bbb)
for i = 1 to aaa
if i <>1 then
text1.text =text1.text & "*"
else
text1.text ="*"
end if
next i

我感觉不知道多少天前...好像你也问过这个问题...
设置PasswordChar属性为*