Sub Globals
Dim vv As VideoView
End Sub
Sub Activity_Create(FirstTime As Boolean)
vv.Initialize("vv")
Activity.AddView(vv, 10dip, 10dip, 250dip, 250dip)
vv.LoadVideo("http","http://myserver.com/distribution/test,mpg")
vv.Play
End Sub
Sub vv_Complete
Log("Playing completed")
End Sub