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