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: