我想做成慢慢连续变化的样子,但运行后字体只是黑色,用随机函数可以用。是不是RGB函数要用变量需要什么特殊的方法
Private Sub Form_Load()
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Text1.ForeColor = RGB(a, b, c)
a = (a + 1) Mod 255
b = (b + 2) Mod 255
c = (c + 3) Mod 255
End Sub