Sub DownloadAndSaveFile (Link As String) As ResumableSub
Dim j As HttpJob
j.Initialize("", Me)
j.Download(Link)
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Dim out As OutputStream = File.OpenOutput(File.DirInternal, "FCMphoto.png", False)
File.Copy2(j.GetInputStream, out)
out.Close
End If
j.Release
Return Null
End Sub