Dim headers As Map = CreateMap("User-Agent": "Mozilla/5.0 (platform; rv:geckoversion) Gecko/geckotrail Firefox/firefoxversion")
Dim AVURLAsset As NativeObject
Dim nsurl As NativeObject
nsurl = nsurl.Initialize("NSURL").RunMethod("URLWithString:", Array(url))
Dim options As Map = CreateMap("AVURLAssetHTTPHeaderFieldsKey": headers.As(NativeObject).RunMethod("ToDictionary", Null))
AVURLAsset = AVURLAsset.Initialize("AVURLAsset").RunMethod("URLAssetWithURL:options:", Array(nsurl, options.As(NativeObject).RunMethod("ToDictionary", Null)))
Dim PlayerItem As NativeObject
PlayerItem = PlayerItem.Initialize("AVPlayerItem").RunMethod("playerItemWithAsset:", Array(AVURLAsset))
VideoPlayer1.As(NativeObject).RunMethod("setPlayerImpl:", Array(PlayerItem))