More WebRequest Timeout Questions

[Gordon]

I use the following code to get source HTML. The second line seems to work
when I get no response from a site. However, I want to stop the request if
it's taking more than 20 - 30 seconds. I can't seem to make it work. Please
point out the mistakes that I have. Thanks

code.............
WebRequest = WebRequest.Create(URL)
WebRequest.Timeout() = RunInfo.ConnectTimeout
WebResponse = WebRequest.GetResponse 'WEBRESPONSE IS A PUBLIC OBJECT
InputReceive = WebResponse.GetResponseStream
Encoding = System.Text.Encoding.GetEncoding("utf-8")
StreamRead = New System.IO.StreamReader(InputReceive, Encoding)
HTML = StreamRead.ReadToEnd()
If (Not WebResponse Is Nothing) Then
WebResponse.Close()
more code.......

I then added the following.....

code..........
'NEW CODE
Dim aTimer As New System.Timers.Timer(RunInfo.InactivityTimeOut)
aTimer.Enabled = True
aTimer.AutoReset = False
AddHandler aTimer.Elapsed, AddressOf OnTimedEvent
'END NEW CODE
WebRequest = WebRequest.Create(URL)
WebRequest.Timeout() = RunInfo.ConnectTimeout
WebResponse = WebRequest.GetResponse
InputReceive = WebResponse.GetResponseStream
Encoding = System.Text.Encoding.GetEncoding("utf-8")
StreamRead = New System.IO.StreamReader(InputReceive, Encoding)
HTML = StreamRead.ReadToEnd()
If (Not WebResponse Is Nothing) Then
WebResponse.Close()
more code ..........

end sub

Private Sub OnTimedEvent(ByVal source As Object, ByVal e As
ElapsedEventArgs)
WebResponse.Close()
End Sub