Dim noTabControl As NativeObject = TabControl
Dim noTabBar As NativeObject = noTabControl.GetField ("tabBar")
Dim View As View = noTabBar
Dim Panel As Panel
Panel.Initialize ("")
Panel.Width = View.Width
Panel.Height = 1
Panel.Color = Colors.Red
noTabBar.RunMethod ("addSubview:", Array (Panel))