Inet1.OpenURL问题

Private Sub Command1_Click()
Text1.Text = Inet1.OpenURL("http://www.baidu.com")
End Sub

怎么老说实时错误 424
        缺少对象

我已经加入了 Microsoft   Internet   Transfer   Control   6.0 --------------------编程问答-------------------- 没有加textbox？ --------------------编程问答-------------------- 什么意思? --------------------编程问答-------------------- 我也遇到这样的错误~~真是郁闷了~

望高手帮忙! --------------------编程问答-------------------- 我快晕了~~ --------------------编程问答-------------------- 我的MSN是:qq75519283@hotmail.com  欢迎交流!!

Dim LoginMessage As String
Private Sub Command1_Click()
If Text1.Text <> "" And Text2.Text <> "" Then
LoginMessage = Inet1.OpenURL("http://127.0.0.1/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://127.0.0.1/", vbNormalFocus
Else
MsgBox "未能成功登录,请检查你输入的用户名及密码是否正确!!!"
End If
Else
MsgBox "请输入帐号密码"
End If
End Sub

Private Sub Form_Load()
Me.Caption = "论坛登录器"
Text1.Text = ""
Text2.Text = ""
Command1.Caption = "登录"
End Sub

--------------------编程问答-------------------- 我遇到了这个问题已解决，方法是将取得的内容以数据包的形式获取，然后再转换为字符串。 --------------------编程问答-------------------- 谢谢楼上的朋友！掩是新手，能否再详细些，万分感谢！ --------------------编程问答-------------------- 再顶下~ --------------------编程问答-------------------- 楼主的代码在我的机子上测试并没出现问题，不过你可以试着改成这样：
Private Sub Command1_Click()
    Dim b() As Byte
    b = Inet1.OpenURL("http://www.baidu.com")
    Text1.Text = CStr(b)
End Sub

楼上的朋友也可以试试看 --------------------编程问答-------------------- lz的代码在我这里也没有任何问题 --------------------编程问答-------------------- 是不是我的VB或者系统问题!
新建工程

Private Sub Command1_Click()
    Dim b() As Byte
    b = Inet1.OpenURL("http://www.baidu.com")
    Text1.Text = CStr(b)
End Sub

这个运行也出错, 提示:实时错误 424 !

补充：VB ,  控件