Sub chooser_Result (Success As Boolean, Dir As String, FileName As String)
If Success Then
Dim FileName2 As String = "image.jpg"
Dim Dir2 As String = File.Combine(File.DirRootExternal,"DCIM/COSTOLA")
File.Copy(Dir,FileName,Dir2,FileName2)
If File.Exists(Dir2,FileName2) Then
CenterBitmap(imv,LoadBitmap(Dir2,FileName2))
End If
Else
ToastMessageShow("No image selected", True)
End If
End Sub