Yeaahh, I know this method.
But I want to give users the option to change the whole app design, also the border colors. And for that I use the following loop:
B4X:
For Each v As View In Page_Main.RootPanel.GetAllViewsRecursive
.
.
.
If v Is Panel Then
Dim pn As Panel = v
'Now I only want to change the color, and because I don't know the color witdh and the corner radius, I can't use SetBorder
End If
Next
Private Sub Page1_Resize(Width As Int, Height As Int)
Dim no As NativeObject = SegmentedControl1
no = no.GetField("layer")
SegmentedControl1.SetBorder(no.GetField("borderWidth").AsNumber, Colors.Red, _
no.GetField("cornerRadius").AsNumber)
End Sub