监控Inet的StateChange事件：

Private Sub Inet1_StateChanged(ByVal State As Integer)
On Error Goto handler

If State = icError Then

MsgBox "ERROR"

End If

Exit Sub ' so handler doesnt run every time

handler:
If err.number = 32576 then
MsgBox "Timeout occurred.. or something"
End If

'or you can:

Select Case Err.Number
Case 32756
'blah
Case 123456
'blah
End Select

End Sub

补充
=========================================
Private Sub Inet1_StateChanged(ByVal State As Integer
Select Case State
Case 0: msgbox "无状态可报告?"
Case 1: msgbox "该控件正在查询所指定的主机的 IP 地址。"
Case 2: msgbox "该控件已成功地找到所指定的主机的 IP 地址。"
Case 3: msgbox "该控件正在与主机连接?"
Case 4: msgbox "该控件已与主机连接成功?"
Case 5: msgbox "该控件正在向主机发送请求?"
Case 6: msgbox "该控件发送请求已成功?"
Case 7: msgbox "该控件正在接收主机的响应?"
Case 8: msgbox "该控件已成功地接收到主机的响应?"
Case 9: msgbox "该控件正在解除与主机的连接?"
Case 10: msgbox "该控件已成功地与主机解除了连接?"
Case 11: msgbox "与主机通讯时出现了错误?"
Case 12: msgbox "该请求已经完成，并且所有数据均已接收到。"
End Select
End Sub

上面0-12是对应State返回的常数值
比如icError = 11
对应检测信息就可以了 你可以配合使用Timer来检测相应设置的变量是否为真达到检测网络的效果
> >