Sub Process_Globals
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("7")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click
Dim In As Intent
File.Copy(File.DirAssets, "1.jpg",File.DirRootExternal,"1.jpg")
In.Initialize(In.ACTION_VIEW, "file://" & File.Combine(File.DirRootExternal,"1.jpg"))
In.SetType("image/*")
StartActivity(In)
End Sub