Sub RequestSource
ProgressDialogShow2("Please wait...", True)
Dim job1 As HttpJob
job1.Initialize("Job1", Me)
job1.Download("http://www.google.com")
End Sub
Sub JobDone (Job As HttpJob)
If Job.Success = True Then
Select Job.JobName
Case "Job1"
Msgbox(Job.GetString, "Source")
End Select
Else
ToastMessageShow("Can not connect to server", True)
End If
Job.Release
End Sub