Dim cs,cs1 As CSBuilder
cs.Initialize.Typeface(Typeface.DEFAULT_BOLD)
cs.Image(LoadBitmap(File.DirAssets, "ic_soccer.png"), 20dip, 20dip, True).Append(" Soccer").PopAll
cs1.Initialize.Typeface(Typeface.DEFAULT_BOLD)
cs1.Image(LoadBitmap(File.DirAssets, "ic_basketball.png"), 20dip, 20dip, True).Append(" Basket").PopAll
TabStrip1.LoadLayout("pagesoccer", cs)
TabStrip1.LoadLayout("pagebasket", cs1)
For Each lbl As Label In GetAllTabLabels(TabStrip1)
lbl.Typeface = Typeface.FONTAWESOME
Next
Dim lbl As Label = GetAllTabLabels(TabStrip1).Get(0)
lbl.Text = cs
Dim lbl1 As Label = GetAllTabLabels(TabStrip1).Get(1)
lbl1.Text = cs1