Do While True
B4XFloatTextField1.TextField.SetColorAndBorder(xui.Color_Yellow, 3, xui.Color_Blue, B4XFloatTextField1.TextField.Height / 4)
B4XFloatTextField1.TextField.TextColor = xui.Color_Black
Sleep(1000)
B4XFloatTextField1.TextField.SetColorAndBorder(xui.Color_Blue, 3, xui.Color_Yellow, B4XFloatTextField1.TextField.Height / 4)
B4XFloatTextField1.TextField.TextColor = xui.Color_White
Sleep(1000)
Loop