Sub Globals
ignoreResponse = false
End Sub
Sub App_Start
Form1.Show
request.New1(URL)
response.New1
request.GetAsyncResponse
ignoreResponse = false
Timer1.Enabled = true 'interval = 30000
End Sub
Sub Timer1_Tick
Timer1.Enabled = false
ignoreRequest = true
msgbox("Error connecting to site.")
End Sub
Sub request_Response
if ignoreRequest then return
...
End Sub