Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("captura")
ftp1.Initialize("ftp1","ftp.xxxxx.com",21,"xxxxxxxxxxxxxx","xxxxxxxxxx")
End Sub
Sub Button2_Click
ftp1.UploadFile(File.DirRootExternal,"1.jpg",True,"/1.jpg")
ftp1.Close
End Sub