Dim Upload As HttpJob
Upload.Initialize("Upload",Me)
Dim fd As MultipartFileData
fd.Initialize
fd.KeyName = "pic"
fd.Dir = file.DirDefaultExternal
fd.FileName = "Temp_pic.jpg"
fd.ContentType = "image/jpeg"
Upload.PostMultipart(url & "/UploadPic.php", CreateMap("Info": InfoFile), Array(fd))