Sub Process_Globals
Dim tse As TabStripViewPagerExtendet
End Sub
Sub Globals
Private TabStrip1 As TabStrip
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("frm_main")
tse.Initialize 'to Initialize the class
TabStrip1.LoadLayout("frm_1","1")
TabStrip1.LoadLayout("frm_2","2")
TabStrip1.LoadLayout("frm_3","3")
TabStrip1.LoadLayout("frm_4","4")
TabStrip1.LoadLayout("frm_5","5")
TabStrip1.ScrollTo(0,False)
tse.TabBackgroundColor(TabStrip1,Colors.Blue,Colors.Red,TabStrip1.CurrentPage)
tse.UnderlineColor(TabStrip1,Colors.Green) 'change the color of the underline by runtime
End Sub