inet控件post数据的错误

Question

做了个简单的测试程序
目的是用inet的execute方法把text1.text用post方式发送到指定的url去
再由那个url返回web输出内容
然后把这个输出的内容输出到label1.caption上
代码如下::
Private Sub Command1_Click()
Dim myurl As String, send_data As String, myhead As String
myurl = "http://ceshi.hzoko.com/php/inet/post.php"
send_data = "txt=" + Trim(Text1.Text)
my_head = "Content-Type: application/x-www-form-urlencoded"
Inet1.Execute myurl, "POST", send_data, myhead
End SubPrivate Sub Inet1_StateChanged(ByVal State As Integer)
Dim get_data As String
Do Until Inet1.StillExecuting = False
Loop
If State = 12 Then
get_data = Inet1.GetChunk(1024)
Label1.Caption = get_data
End If
End Sub错误提示
实时错误:-2147417848(80010108)
对象'execute'的方法'iinet'失败按调试键Inet1.Execute myurl, "POST", send_data, myhead
这行代码发亮,黄色的