Sub Camera1_PictureTaken (data() As Byte)
'setto data e ora nel formato desiderato
DateTime.DateFormat = "yyyyMMdd"
Dim now As Long = DateTime.now
' Nome dell'immagine
filename = now &".jpg"
dirmia = File.DirRootExternal
dirmia = dirmia & "/Paparazzi/"
datatelecamera = data
lista_foto.Add(filename)
camEx.StartPreview 'restart preview
End Sub