Sub Globals
Dim YouTube As YouTubeStandalonePlayer
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("YouTubeTest1")
YouTube.Initialize("YouTube")
Activity.AddView(YouTube, 10dip, 10dip, 250dip, 400dip)
If YouTube.CheckPlayerSupported <> "SUCCESS" Then
Msgbox("YouTube service not available: " & CRLF & YouTube.CheckPlayerSupported, "")
Else
Activity.AddMenuItem3("Play Video", "PlayVideo", Null, True)
End If
End Sub
Sub PlayVideo_Click
YouTube.StartVideo("AIzaSyDhjNZFx50axXbAxxxxx", _
"kHuSNntPdA8", 0, True, True)
End Sub