@corwin42 says: If you change the color of the second "Label" in the above (below) code you will change the Action Button text color.
B4X:
Dim p AsPanel
p = snack.ViewForEach v AsViewIn p.GetAllViewsRecursiveIf v IsLabelThenDim textv AsLabel
textv = v
textv.TextColor = Colors.Red
Exit
EndIf
Next
I'm just remove the "Exit" from the code above to change the Action button text color and works.