Dim NumProv As Long = AssegnoRiferimento + 1 ' Assegno momentaneamente il numero che prederà il rifornimento
File.Copy(PicturesFolder, Img,Comodo.PATHFOTO,"img_"&NumProv&".jpg")
File.Delete(PicturesFolder, Img)
copy the photo but does not cancel from PicturesFolder