Private Sub JobDone(Job As HttpJob)
If Job.Success Then
Dim res As String
res = Job.GetString
Log("Back from Job:" & Job.JobName)
Log("Response from server: " & res)
Select Job.JobName
Case "Job1"
'....
Case "Job2"
'....
End Select
Else
Log("Error: " & Job.ErrorMessage)
select jobfailed
case "Job6"
Button1_Click 'Send Job6 again
case "job7"
'....
End Select
End If
Job.Release
End Sub