Sub GetHTML()
Dim hj As HttpJob
hj.Initialize("job1", Me)
hj.Download("http://......")
End Sub
Sub JobDone(job As HttpJob)
If job.Success Then
If job.JobName = "job1" Then
UpdateHTML(job.GetString)
End If
Else
ToastMessageShow("Job not succeded",False)
End If
End Sub