Sub Player_Ready
Log("Ready")
SetVideoResolution
End Sub
Private Sub SetVideoResolution
Dim jo As JavaObject = xplayer
Dim TrackSelector As JavaObject = jo.GetField("trackSelector")
TrackSelector.RunMethod("setParameters", Array(TrackSelector.RunMethodJO("buildUponParameters", Null).RunMethod("setMaxVideoSize", Array(1920,1080))))
End Sub