Sub Create_TabStrip
tsCadastro.LoadLayout("Layout1", "PROFILE")
tsCadastro.LoadLayout("Layout2", "COMPLEMENTARY")
tsCadastro.LoadLayout("Layout3", "ADDITIONAL")
For Each lbl As Label In GetAllTabLabels(tsCadastro)
lbl.Padding = Array As Int(0, 0, 0, 0)
Next
Dim tse As TabStripViewPagerExtendet
tse.Initialize 'to Initialize the class
tse.TabWidth(tsCadastro, 30%x, 0)
tse.TabWidth(tsCadastro, 40%x, 1) 'DON'T WORKS
tse.TabWidth(tsCadastro, 30%x, 2)
tsCadastro.ScrollTo(0, False)
End Sub