在窗体添加一个标签，一个计时器控件,
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文本的背景颜色
