我做了一个用户登录器
现在想做出来的效果是Form1中的Text1是Form4中label4的值
原先用了Label4.Caption = Form1.Text1.Text
但是进去之后发现Form4的Label1之后内容还是空的（label1内容是 欢迎用户：，label1后面接了label4）
想问一下啥情况啊

Form4Label4代码：
Private Sub Label4_Click()
Label4.Caption = Form1.Text1.Text
End Sub

改成字母或中文就会报错......

还有就是大佬，我在后面改进了一下，想说在Text1里面输入网址，接着调用默认浏览器打开Text1中输入的网址，但是为什么会跳到这个页面？？无论是百度还是哔哩哔哩都是跳转到出错的这个界面...
“我要上网”command1键的代码：
Shell "rundll32.exe url.dll,FileProtocolHandler " & Text1.Text & "/infocenter"
就会跳到这：

ding

'　用默认浏览器打开指定网页
Dim oShell, cWY
Set oShell = WScript.CreateObject("WSCript.shell")
cWY = Text.Text
oShell.run cWY
Set oShell = Nothing

Form1 登录页代码
Private Sub Command1_Click()
If Text2 = 10086 Then
MsgBox "登陆成功"
Form4.Show
Else
MsgBox "账号或密码错误请重新登陆"
End If
If Text1 = 12345 And Text2 = 12345 Then
Form3.Show
End If
user = Text1.Text
End Sub
Private Sub Command2_Clic()
Form1.Hide
Form2.Show
End Sub
Private Sub Text1_Change()
user = Text1.Text
End Sub
Form2 彩蛋页代码空 没写
Form3空
Form4 上网页面代码
Private Sub Command1_Click()
Shell "rundll32.exe url.dll,FileProtocolHandler " & Text1.Text & "/infocenter"
End Sub
Private Sub Form_Load()
Label4.Caption = Form1.Text1.Text
End Sub
Private Sub Label4_Click()
End Sub
求助

'　用 Windows 自带的网络浏览器打开网页
Dim fnt As String
fnt = "C:\Program Files\Internet Explorer\iexplore.exe "
fnt = fnt & Text1.Text
Shell fnt, 1