'Thanks NJdude :)
Sub Camera1_PictureTaken (Data() As Byte)
camera1.StartPreview
Dim out As OutputStream
out = File.OpenOutput(File.DirRootExternal, "Image.jpg", False)
out.WriteBytes(Data, 0, Data.Length)
out.Close
' ToastMessageShow("Image saved: " & File.Combine(File.DirRootExternal, "Image.jpg"), True)
Dim su As StringUtils
Dim Filepath As String
Filepath = File.Combine(File.DirRootExternal, "Image.jpg")
Dim i As Intent
'i.Initialize(i.ACTION_VIEW, "file://" & su.EncodeUrl(Filepath, "UTF8"))
i.Initialize(i.ACTION_VIEW, "file://" & File.Combine(File.DirRootExternal, "Image.jpg"))
i.SetType("image/*")
StartActivity(i)
Log("error:"&I)
End Sub