Dim FTP1 As FTP
FTP1.Initialize("FTP", "rose.myddns.me", 21, "john", "Rose33126")
FTP1.PassiveMode = True
FTP1.UseSSL = True
Log("Started FTP")
Sleep(0)
Dim sf As Object = FTP1.DownloadFile(ServerPath, True, File.DirAssets, FileName)
Wait For (sf) FTP1_DownloadCompleted (ServerPath As String, Success As Boolean)
If Success Then .....
Private Sub FTP_DownloadProgress(ServerPath As String, TotalDownLoaded As Long, Total As Long)
Log("Downloaded: " & Round(TotalDownLoaded / 1000) & "kb")
ProgressBarDownload.Progress=TotalDownLoaded*100/Total
Sleep(100)
End Sub