Dim job As HttpJob
Dim ret As String = "ERROR"
job.Initialize("job", Me)
job.PostMultipart(URL, Null, Array(fd))
job.GetRequest.SetHeader("User-Agent", useragent)
job.GetRequest.SetContentType("multipart/form-data")
job.GetRequest.SetHeader("Authorization", auth)
Wait For (job) JobDone(job As HttpJob)
If job.Success Then
ret = job.GetString
End If
job.Release
Return ret