Private Sub tra
Dim jo As JavaObject = ExoTv
Dim TrackSelector As JavaObject = jo.GetField("trackSelector")
Dim parametros As JavaObject
parametros = TrackSelector.RunMethodJO("buildUponParameters", Null)
parametros.RunMethod("setMaxVideoSizeSd",Null)
parametros.RunMethod("build",Null)
TrackSelector.RunMethod("setParameters", Array(parametros))
End Sub