For Each v As View In HSVHead.Panel.GetAllViewsRecursive
If v Is Label Then
Dim jo As JavaObject = v
jo.RunMethod("setTextColor", Array As Object(lbSample.TextColor))
End If
Next
You don't need JavaObject in B4A and NativeObject in B4I.
B4X:
For Each v As View In HSVHead.Panel.GetAllViewsRecursive
If v Is Label Then
Dim myLabel As Label = v
myLabel.TextColor = lbSample.TextColor
End If
Next