简单的VB小程序

在窗体添加一个标签，一个计时器控件,

Private Sub Form_Load()

Timer1.Enabled = True

Timer1.Interval = 1000

Label1.Caption = "字体随机变色"

End Sub

Private Sub Timer1_Timer()

Label1.ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)

End Sub

题目都没说清楚，你想变什么的颜色....

在窗体添加一个text1、CommonDialog1控件

Private Sub command1_Click()

CommonDialog1.ShowColor

text1.BackColor = CommonDialog1.Color

End Sub ' 这个是改变text文本的背景颜色