Sub CustomTab(TabMenu As ASTabMenu)
TabMenu.TabStripMode = True
TabMenu.text_font = xui.CreateFont2(CustomFontB4X, TabMenu.text_font.Size * 0.8)
TabMenu.TabTextColor = xui.Color_Gray '<-- doesn't work
TabMenu.SelectedTabTextColor = xui.Color_Green '<-- doesn't work
TabMenu.UnderLineHeight = 5dip
TabMenu.UnderLineColor = xui.Color_LightGray
TabMenu.SetTab(TabMenu.CurrentIndex, False, False)
TabMenu.CommitChanges
End Sub