Sub Button_MouseClicked (EventData As MouseEvent)
Dim job As HttpJob
job.Initialize("GetData", Me)
job.Download(Page)
End Sub
Sub JobDone(Job As HttpJob)
If Job.Success Then
Log(Job.GetString)
Else
Log("Job Error: " & Job.ErrorMessage)
End If
Job.ReleaseEnd
Sub