inet的问题？

Question

使用Inet1.Execute的方法来读取网内容
使用代理
如何取响应的时间？下面是我的代码，用什么方法读取网页内容做好啊？
        strSendHeader = "User-Agent: Test" & vbCrLf
        strSendHeader = strSendHeader & "Referer: Test" & vbCrLf
        Inet1.AccessType = icNamedProxy
        Inet1.Protocol = icHTTP '指明控件协议类型
        Inet1.Proxy = "http=20.38.207.219:3128 https=168.12.212.7:80"
        Inet1.RequestTimeout = 200
        Inet1.Execute URL, "GET", "", strSendHeader
        While Inet1.StillExecuting
            DoEvents
        Wend
        If LastResult <> "" Then
            RichTextBox1.Text = LastResult
        Else
            RichTextBox1.Text = "out"
        End IfPrivate Sub Inet1_StateChanged(ByVal State As Integer)
    Dim stemp As String
    Select Case State
        Case 12 '表明网络连接检索正常
            stemp = Inet1.GetChunk(1024) '使用GetChunk方法从缓冲区中一次提取1024个字节的回应文本，并存放在stemp临时变量中
                While stemp <> "" '当仍然返回信息时
                    LastResult = LastResult + stemp '将整个网页的源文件代码放入LastResult变量中
                    stemp = Inet1.GetChunk(1024) '循环
                Wend
        Case 11
            LastResult = ""
    End Select
End Sub