public Sub ConnectPage()
' connecting the navigation bar
'ABMShared.ConnectNavigationBar(page)
'http://localhost:51042
'video3.InitializeYouTube(page, "video3", "big_buck_bunny.mp4", "http://localhost:51042", False, False, False, 50)
'video3.InitializeVimeo(page, "video3","big_buck_bunny.mp4", True, False)
video3.InitializeHTML5(page, "video3","big_buck_bunny.mp4",False, "video/mp4")
'video3.SetFixedSize(500, 400)
page.Cell(4,1).AddComponent(video3)
video3.Refresh
End Sub
...
...
Sub b1_Clicked(Target As String)
' video3.Refresh
' video3.Pause
video3.Play
End Sub
Sub b2_Clicked(Target As String)
' video3.Refresh
video3.Pause
' video3.Play
End Sub