Dim no As NativeObject = VideoPlayer1
Dim controller As NativeObject = no.GetField("controller")
Dim p As Panel
p.Initialize("")
p.Color = Colors.Red
p.SetLayoutAnimated(0, 0, 20, 20, 100, 100)
Dim v As NativeObject = controller.GetField("contentOverlayView")
v.RunMethod("addSubview:", Array(p))