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://192.168.5.100") 'URI
vv.Play
End Sub
Sub vv_Complete
Log("Playing completed")
End Sub