Sub btn1_Click
For Each v As View In GetAllTabLabels(TabStrip1)
v.Width = 33%x
Dim lbl As Label = v
lbl.Color = Colors.Transparent
Next
End Sub
Public Sub GetAllTabLabels (tabstrip As TabStrip) As List
Dim jo As JavaObject = tabstrip
Dim r As Reflector
r.Target = jo.GetField("tabStrip")
Dim tc As Panel = r.GetField("tabsContainer")
Dim res As List
res.Initialize
For Each v As View In tc
If v Is Label Then res.Add(v)
Next
Return res
End Sub