打开VB，新建标准EXE工程，如下图
调整窗口大小，把backcolor属性调整为&H00FFFF00&，然后把form1窗口编辑成如下图的样子。
（注意：label控件的autosize属性要设为true，密码text输入框的passwordchar属性为*）
接着，添加一个窗口，把窗口布置成如下图：
像刚才那样，在添加一个窗口，把窗口布置成如下图：
外观布置完毕，开始编写代码：
form1各控件代码：
Private Sub Command1_Click()
If Text1 = "admin" And Text2 = "skadmin" Then
Form1.Hide
Form2.Show
Else
Form1.Hide
Form3.Show
End If
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
End Sub
Private Sub Command3_Click()
End
End Sub
form2各控件代码：
Private Sub Command1_Click()
End
End Sub
form3各控件代码：
Private Sub Command1_Click()
Form3.Hide
Form1.Show
Form1.Text1 = ""
Form1.Text2 = ""
End Sub
整个程序就编写好了，按F5键运行吧！
