Dim sf As Object = FTP.DownloadFile(DirectoryServeur & Lig, True, File.DirRootExternal, DirectoryLocalePhotos & Lig)
Wait For (sf) FTP_DownloadCompleted (ServerPath As String, Success As Boolean)
Log("DownloadCompleted: ServerPath = " & ServerPath & ", Success = " & Success)
'do while Success = false
' sleep(0)
'loop
Sleep(20) 'might fix problem - if it does, get back to me and we'll try work out why (programming is art... sometimes a black art ;-)
If Success Then
ImagePhoto.Bitmap = LoadBitmap(File.DirRootExternal,DirectoryLocalePhotos & Lig)
Else
Log("Download failed")
End If