Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1   
    Root.LoadLayout("MainPage")
    
    Player.Initialize("Player")
    Player.Prepare(Player.CreateUriSource("https://bestvpn.org/html5demos/assets/dizzy.mp4"))
        
    Dim jo As JavaObject = Player
    Dim event As Object = jo.CreateEventFromUI("androidx.media3.exoplayer.Player$EventListener", "statechanged", False)  'Error
    jo.GetFieldJO("player").RunMethod("addListener", Array(event))
        
    SimpleExoPlayerView1.Player = Player
    Player.Play
    lblEnterFullScreen.Visible = False
End Sub
Sub StateChanged_Event (MethodName As String, Args() As Object) As Object
    If MethodName = "onPlayerStateChanged" Then
        Dim Playing As Boolean = Args(0)
        Log("IsPlaying: " & Playing)
    End If
    Return Null
End Sub