Dim job1 As HttpJob 'Process_Globals
job1.Initialize("job1", Me) 'Service_Create
Dim fd As MultipartFileData
fd.Initialize
fd.KeyName = "file1"
fd.Dir = "mydir"
fd.FileName = "myfile.ext"
fd.ContentType = "ImageType"
job1.GetRequest.Timeout=60000
job1.PostMultipart("http://mysever/mypage.php", CreateMap("filename": filename), Array(fd))