inet控件的Execute的详细使用过程(VB)

进来的朋友请真心来帮我
问题:
我以前用的是inet.OpenURL(rul) 来获取网页代码的,但问题出现了,当我网速非常不好的时候程序就出现了假死现象.
所以我改inet.Execute(异步模式)来获取网页,虽然慢但可以解决程序无响应的现象.
请高手们帮我写个详细的使用"过程"
要求:
1.获取网页,判断其状态,下载完成才能继续执行完这个过程,等待的时候用一个进度条显示下载进度.
状态要清楚.

谢谢了,我在线等,有源码给我短信也可以
分不是问题满意的 追加100!

'窗体内加入控件command11,inet1,ProgressBar1
然后复制下面代码，修改下载地址，运行，OK

'====窗体代码部分====
Private Sub Command1_Click()
Dim strURL As String, m_lDocSize As Long, strBuffer As String
Dim lngArrivedDataSize As Long, strArrivedData As String
strURL = "http://zhidao.baidu.com/question/68055519.html"
Inet1.Execute strURL, "GET" '发出请求
Do While Inet1.StillExecuting '等待请求结束
DoEvents
Loop

If Len(Inet1.GetHeader("Content-Length")) > 0 Then '获取文件头信息
m_lDocSize = CLng(Inet1.GetHeader("Content-Length"))
End If
With ProgressBar1 '初始化进度条
.Max = m_lDocSize - Len(Inet1.GetHeader)
.Min = 0
Do '开始获取数据
DoEvents
strBuffer = Inet1.GetChunk(512)
strArrivedData = strArrivedData & strBuffer
lngArrivedDataSize = Len(strArrivedData)