如何捕捉网络响应超时错误，代码如下：
try
Dim path, rpath As String
path = Application.StartupPath & "\" & "tmp.txt"
rpath = "http://www.123.com/tmp.txt"

Dim gh As HttpWebRequest = HttpWebRequest.Create(rpath)
Dim wp As HttpWebResponse = gh.GetResponse
gh.Timeout = 5000

'其它操作代码，例如下载这个文件后处理

Catch ex As WebException
msgbox(ex.ToString()) '捕捉到超时错误后显示

end try

问题：
当响应超时时，程序出错崩溃，但没有设定的出错对话框出现——就是说并没有捕捉到出错。

请各位指教！


------解决方法--------------------------------------------------------
你把WebException改为Exception看看。。。
------解决方法--------------------------------------------------------
改成Catch ex As Exception

我测试能够正常捕获异常，你把你没贴出来的其它代码注释掉看看，我估计跟你其它的代码有关系。
------解决方法--------------------------------------------------------
Try
‘代码....
Catch ex As Exception
MsgBox(ex.ToString)
Exit Sub '加这句
End Try