颜色对象

 利用.NET的COLOR结构

代码:

1.  Dim mycolor As Color
2.         mycolor = Color.Violet
3.         Label1.ForeColor = mycolor

用户自定义颜色对象

1. Dim mycolor As Color
2.         ' mycolor = Color.FromArgb(255, 0, 0)     '自定义为红色
3.         mycolor = Color.FromArgb(50, 255, 0, 0)      '在这种情况下第一个数为颜色的透明度
4.         'mycolor = Color.FromArgb(Rnd() * 255, Rnd() * 255, Rnd() * 255)      '自定义为随机的颜色
5.         Label1.ForeColor = mycolor