For i = 0 To Activity.NumberOfViews - 1
If Activity.GetView(i) Is Button OR _
Activity.GetView(i) Is EditText OR _
Activity.GetView(i) Is CheckBox OR _
Activity.GetView(i) Is RadioButton Then
Else If Activity.GetView(i) Is Label Then
Dim lbl As Label
lbl = Activity.GetView(i)
End If
Next
You can use the Tag property for each label and set it by the designer to "lbl"
Now use the Tag property to identify the label:
B4X:
Dim vi As View
Dim lb As Label
For i=0 To activity.NumberOfViews-1
vi=Activity.GetView(i)
If vi.Tag="lbl" Then
lb=activity.GetView(i)
'lb.Color=Colors.Transparent
'lb.TextColor=Colors.RGB(0,0,139)
end if
Next