Sub CreatePlayer(url As String) As NativeObject
Dim u As NativeObject
u = u.Initialize("NSURL").RunMethod("URLWithString:", Array(url))
Dim player As NativeObject
player = player.Initialize("AVPlayer").RunMethod("alloc", Null).RunMethod("initWithURL:", Array(u))
Return player
End Sub