Sub TabStrip1_PageSelected (Position As Int)
Log($"Current page: ${Position}"$)
Dim i As Int
For i = 0 To TabPages.Size - 1
Dim p As Page = TabPages.Get(i)
Dim lbl As Label = p.TitleView
Log(lbl.AttributedText.ToString)
Dim clr As Int
Dim cs As CSBuilder
If i = Position Then
SetAttributedTitle(p, cs.Initialize.BackgroundColor(Colors.RGB(15,105,255)).Color(Colors.White).Append(lbl.AttributedText.ToString).PopAll)
Else
SetAttributedTitle(p, cs.Initialize.BackgroundColor(AccentColor).Color(Colors.White).Append(lbl.AttributedText.ToString).PopAll)
End If
Next
End Sub