vb.net - 最初のチャンスの例外エラーが発生し続ける

Question

プログラムを実行すると、コードはタイムアウト例外を正しくキャッチしますが、次のようなポップアップ メッセージが表示されます。

タイプ 'System.NullReferenceException' の初回例外が Microsoft.VisualBasic.dll で発生しました

これも言います：

オブジェクト変数またはWithブロック変数が設定されていません。

これが私のコードです：

Dim rt As String = ""
Dim out As String
Dim wRequest As WebRequest
Dim wResponse As WebResponse
Dim SR As StreamReader
Dim time As Date

time = Now()

Try
    wRequest = WebRequest.Create(Address)
    wRequest.Timeout = 10000
    wResponse = wRequest.GetResponse
    SR = New StreamReader(wResponse.GetResponseStream)
    rt = SR.ReadToEnd
    SR.Close()
Catch wex As System.Net.WebException
    If wex.Status = WebExceptionStatus.Timeout Then
        MessageBox.Show("Could not establish a connection to the selected exchange server.", "Connection Timed Out", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    End If
End Try