如何捕获inet网页下载控件的错误消息（高分请教）？

Question

各位大侠：
   如何捕获inet控件下载url地址出现无法找到网页，或别的错误信息？

Answer 1

Private Sub Inet1_StateChanged(ByVal State As Integer)
   Dim strMess As String '消息变量。
   Select Case State
   '...没有列举其它情况。
   Case icHostResolvingHost
        strMess = "正在查询所指定的主机的 IP 地址"
   Case icHostResolved
        strMess = "已成功地找到所指定的主机的 IP 地址"
   Case icConnecting
        strMess = "正在与主机连接"
   Case icConnected
        strMess = "与主机连接成功"
   Case icRequesting
        strMess = "正在向主机发送请求"
   Case icReceivingResponse
        strMess = "正在接收主机的响应"
   Case icResponseReceived
        strMess = "已成功地接收到主机的响应"
   Case icDisconnecting
        strMess = "正在解除与主机的连接"
   Case icResponseCompleted
        strMess = "该请求已经完成，并且所有数据均已接收到"
   Case icError  ' 11
      '得到错误文本。
      strMess = "ErrorCode: " & Inet1.ResponseCode & _
      " : " & Inet1.ResponseInfo
   End Select   txtState.Text = txtState.Text & vbCrLf & Now() & " : " & strMessEnd Sub