Dim h_ul As HttpJob
h_ul.Initialize("",Me)
h_ul.PostFile("https://www.googleapis.com/upload/drive/v3/files",localPath,localFilename)
h_ul.GetRequest.SetHeader("Authorization", "Bearer " & mytoken)
Wait For (h_ul) JobDone(h_ul As HttpJob)
If h_ul.Success Then
.........