vb中下载时Inet1.OpenURL的问题

以下是代码：

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'API声明
Private Sub Command1_Click() '下载按钮
Dim DownIt() As Byte
Dim SoftUrl As String '存放下载网址
Dim tPaht As String '下载之后存放在本地的位置及文件名
SoftUrl = "http://www.baidu.com/ce/123.gho" '举例 修改后面的网址即可
tPath = "C:\xbk3.rar" '举例 修改""之间的本地地址即可
DownIt() = Inet1.OpenURL(SoftUrl, icByteArray)
Open tPath For Binary Access Write As #1
Put #1, , DownIt()
Close #1
'----------------
'如需自动运行 将下行代码中的’去掉
'Shell tpath, vbNormalFocus
'----------------
End Sub

Private Sub Command2_Click() '打开网页按钮
Dim ret As Long

ret = ShellExecute(Me.hwnd, "open", "http://www.baidu.com/", "", App.Path, 1)

End Sub

但是在DownIt() = Inet1.OpenURL(SoftUrl, icByteArray)
这个地方会出现实时错误“424”，要求对象。怎么解决？？？

cString是个常量，表示返回结果是字符。
另外也可以用icByteArray来取二进制数据。
参考
(v=VS.60).aspx

你可以试试把 文本框1 中的网址换成 百度的网页 网页能打开 就不会有超时的提示