Private Sub btnUpload_Click
Dim sf As Object = FTP.UploadFile(sDir, foto, False, "/filezilla/sdcard/" & foto)
Wait For (sf) FTP_UploadCompleted (ServerPath As String, Success As Boolean)
If Success Then
ToastMessageShow("Uploaded con éxito", True)
Else
ToastMessageShow("No uploadeado", True)
End If
End Sub