用vb编写一个界面？

'添加好控件，把代码复制到窗体模块可以了吧。

'label1，Label2，Text1

'Command1:确定,command2:重输

PrivateSubForm_Load()

Text1.PasswordChar=\"*\"

Text1.MaxLength=6

Command1.Enabled=False

Command2.Visible=False

Label2.Visible=False

EndSub

PrivateSubCommand1_Click()

IfText1.Text=\"123456\"Then

Label2.ForeColor=vbBlue

Label2.Caption=\"欢迎进入应用程序！\"

Else

Label2.ForeColor=vbRed

Label2.Caption=\"密码错误！\"

EndIf

Label2.Visible=True

EndSub

PrivateSubCommand2_Click()

Text1.Text=\"\"

Command1.Enabled=False

Command2.Visible=False

EndSub

PrivateSubText1_Change()

IfText1.Text<>\"\"Then

Command1.Enabled=True

Command2.Visible=True

Else

Label2.Visible=False

Command1.Enabled=False

Command2.Visible=False

EndIf

EndSub