'Activity module
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
Dim vv As VideoView
End Sub
Sub Activity_Create(FirstTime As Boolean)
vv.Initialize("vv")
Activity.AddView(vv, 10dip, 10dip, 250dip, 250dip)
File.Copy(File.DirAssets, "sample_mpeg4.mp4", File.DirInternal, "sample_mpeg4.mp4")
vv.LoadVideo(File.DirInternal, "sample_mpeg4.mp4")
vv.Play
End Sub
Sub vv_Complete
Log("Playing completed")
End Sub