' Change text hint color in textfield or floatlabeledTextview
Sub SetHintColor(tf As TextField, clr As Int)
Dim no As NativeObject = tf
Dim attr As AttributedString
attr.Initialize(tf.HintText, tf.Font, clr)
'These two lines also change the color of the hint text when it is placed on the top left (i.e., main text is not null) and the view is a FLoatLabeledTextField
if tf is FloatLabeledTextField Then
no.SetField("floatingLabelActiveTextColor",no.ColorToUIColor(clr)) '<-- Set color when view is focused
no.SetField("floatingLabelTextColor",no.ColorToUIColor(clr)) '<-- Set color when view is not focused
End If
End Sub