This important code allows you to get the labels that make the tab headers:
B4X:
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
Example of changing the color of the current tab color:
B4X:
Sub TabStrip1_PageSelected (Position As Int)
Log($"Current page: ${Position}"$)
Dim i As Int
For Each lbl As Label In GetAllTabLabels(TabStrip1)
If i = Position Then
lbl.SetColorAnimated(200, Colors.Green, Colors.Yellow)
Else
lbl.Color = Colors.Green
End If
i = i + 1
Next
End Sub
Note that you should call TabString1_PageSelected(0) in Activity_Create.