If App.OSVersion >= 13 Then 'you have to change the backgroundcolor, not the tint for the new style
SegmentedControl1.SetColorAnimated(200, Colors.RGB(Rnd(0,255), Rnd(0,255), Rnd(0,255)))
Else 'works for version under the 13 (i think those has the old style segmented color
SegmentedControl1.TintColor = Colors.RGB(Rnd(0,255), Rnd(0,255), Rnd(0,255))
End If