Sub startJob(obj As Object)
Dim j As HttpJob
j.Initialize("", Me) 'name is empty as it is no longer needed
j.Tag = obj
j.PostString("http://x.sss.com/api/Test",body)
j.GetRequest.SetContentType("application/json")
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
obj = j.Tag
obj.ParseJSON(j.GetString) 'here different object function will process the result'
End If
j.Release
End Sub