Sub Button1_Click
If Rnd(1, 3) = 1 Then
EditText1.TextColor = Colors.Black
Else
EditText1.TextColor = Colors.RGB(Rnd(0, 255), Rnd(0, 255), Rnd(0, 255))
End If
End Sub
to demonstrate use of the Colors.* built-in color constants, and building colors from RGB components, to get eg this:
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.