Main.App.KeyController = Main.tbc
Dim no As NativeObject = Main.tbc
no.GetField("tabBar").SetField("barTintColor", no.ColorToUIColor(0xFFf7f7f7)) 'active item
no.GetField("tabBar").SetField("TintColor", no.ColorToUIColor(0xFFED7B53)) 'active item
'other code and stuff..
Dim ar(l.Size) As Object
For i = 0 To l.Size-1
ar(i) = CreateTb(l.Get(i))
Next
Main.tbc.Pages = ar
If Not(firsTime) Then Main.tbc.SelectedIndex = Main.tbc.Pages.Size-1