Dim Link As String = BoServerUpload ' Server URL
Dim mFileName As String = "mslogo.png"
Dim mFileTitle As String = "mslogo"
Dim Dir As String = File.DirAssets
UplParams.Put("FileName", mFileName)
UplParams.Put("Repert", "Images")
UplParams.Put("ConnGUID", UserGUID)
UplParams.Put("ProdId", 1585)
Dim Arqs As MultipartFileData
Arqs.Initialize
Arqs.KeyName = mFileTitle
Arqs.Dir = Dir
Arqs.ContentType = "image/png"
Arqs.FileName = mFileName
Dim POStf As POSTfile 'class above
POStf.Initialize(Link, UplParams, "JobUPL", Arqs)
Wait For (POStf.SendPost) complete(resPOStf As String)
Log(resPOStf)