vb制作登陆器问题

假如说我制作一个登陆器。输入完正确的帐号和密码后，点登陆，就会转到另外一个工程。有没高手知道！
我建了form1 和 form2 在form1中安了个commandButton 点击这个form1就会消失 form2就会出显！

按Ctrl+T 添加控件
建议重装VB6

Dim LoginMessage As String
Private Sub Command1_Click()
If Text1.Text <> "" And Text2.Text <> "" Then
LoginMessage = Inet1.OpenURL("http://www.meizu.com/bbs/login.asp?action=chk&CookieDate=2&username=" & Trim(Text1.Text) & "&password=" & Trim(Text2.Text))
If InStr(LoginMessage, "登录成功") <> 0 Then
MsgBox "登录成功,点击确定进入论坛!!!"
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & "http://www.meizu.com/bbs", vbNormalFocus
Else
MsgBox "未能成功登录,请检查你输入的用户名及密码是否正确!!!"
End If
Else
MsgBox "请输入帐号密码"
End If
End Sub

Private Sub Form_Load()