Sub Camera1_PictureTaken (Data() As Byte)
CameraSetting(Camera1)
Camera1.StartPreview
Dim out As OutputStream
Dim namepict As String
namepict = DateTime.Date(DateTime.Now).Replace("/","").Replace(":","")
DateTime.TimeFormat = "HHmmss"
namepict = namepict & "_" & DateTime.Time(DateTime.Now).Replace("/","").Replace(":","")
out = File.OpenOutput(File.DirRootExternal & "/mimmsos", namepict & ".jpg", False)
out.WriteBytes(Data, 0, Data.Length)
out.Close
ToastMessageShow("Image saved: " & File.Combine(File.DirRootExternal & "/mimmsos", namepict & ".jpg"), True)
End Sub