print本身不能设置颜色，只能改变它载体的颜色。如果你是在窗体上显示只要改变窗体的前景颜色即可。
Private Sub Timer1_Timer()
Dim r As Integer
Dim g As Integer
Dim b As Integer
r = Int(Rnd * 255)
g = Int(Rnd * 255)
b = Int(Rnd * 255)
Form1.ForeColor = RGB(r, g, b)
Print "xing", vbRed
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024