Android Question Downloading large images showing Progress bar

Type fileInfo(filename As String, filesize As Int, timestamp As Long)
    
    
Private Sub makeFilelist
    FTP.List(hostPath)                                                    ' Get filelist from host
    Wait For FTP_ListCompleted (ServerPath As String, Success As Boolean, _
        Folders() As FTPEntry, Files() As FTPEntry)
    If Success Then
        For Each e As FTPEntry In Files
            Dim f As fileInfo
            f.Initialize
            f.filename = e.Name
            f.filesize = e.Size
            f.timestamp = e.Timestamp
            . . .
        Next
    Else
        Log(LastException.Message
    End If
End Sub

'Called
Wait For(CallSub2(Me,"PF_FileSize",sImgTNAddress)) Complete (Result As String)


Sub PF_FileSize(sFileName As String) As ResumableSub
    
    Dim j As HttpJob
    Dim sPath As String
    Dim result As String=""
    
    sPath="http://xyz.com/Folder/ImageFiles/" & sFileName
        
    iProfileImgSize=0
    j.Initialize("", Me)
    j.download(sPath)
    Wait For (j) JobDone(j As HttpJob)
    
    If j.Success Then
        Dim length As List = j.Response.GetHeaders.GetDefault("content-length", Null)
        If length.IsInitialized  Then
            result=length.Get(0)
            iProfileImgSize=result
            Return result
        End If
    End If
End Sub