Option Explicit

Private Sub Form_Click()
End
End Sub

Private Sub Form_Resize()
Label1.Left = (Me.ScaleWidth - Label1.Width) / 2 '标签库label1水平居中显示
Label1.Top = Me.ScaleHeight / 4 '标签框label1的高度位于窗体的1/4处
Label2.Left = (Me.ScaleWidth - Label2.Width) / 2
Label2.Top = Me.ScaleHeight / 2
Label3.Left = (Me.ScaleWidth - Label3.Width) / 2
Label3.Top = 3 * Me.ScaleHeight / 4
End Sub

Private Sub Timer1_Timer()
Label1.ForeColor = QBColor(Rnd * 15) '标签框label1中的文字颜色是随机变化的
Label2.ForeColor = RGB(255 * Rnd,255 * Rnd,255 * Rnd)
Label3.ForeColor = QBColor(Rnd * 15)
End Sub

颜色调配：

一、RGB函数

RGB是Red，Green和Blue的缩写。众所周知，自然界的可见光都是由红、黄、蓝三色混合而成，但是在调色上却不是这样，我们用的颜料其实是由红、绿、蓝三色调配而成，在计算机上调色也是一样，所以出现了RGB函数。

说简单点，其实RGB函数就是利用红绿蓝三种颜色的不同分量值得到不同的颜色。格式很简单：RGB（R,G,B），其中R,B三个值的取值范围都是0~255，数值越大，颜色添加比重也大。当所有值都为255（即RGB（255，255，255）时），颜色为白色。

二、QBColor方法

QBColor方法可以简单的看作RGB函数的简化版，用0~15这一共16个数字代表了16种颜色，而且与RGB函数一一对应。

这16种颜色分别是：黑（0）、蓝（1）、绿（2）、青（3）、红（4）、紫红（5）、黄（6）、白（7）、灰（8）、淡蓝（9）、淡绿（10）、淡青（11）、淡红（12）、淡紫红（13）、淡黄（14）、亮白（15）。

格式如下：QBColor（颜色值）

三、VB颜色常量

VB一共定义了8种常用的颜色常量，分别为VbBlack（黑色）、VbRed（红色），VbGreen（绿色），VbYellow（黄色），VbBlue（蓝色），VbMagenta（紫红色），VbCyan（青色），VbWhite（白色）。

使用格式也很简单，例如：Text1.ForeColor=VbBlue 就是为Text1的文字选择蓝色。

四、直接输入颜色值

以上三种方法都不是直接调取颜色的方法，那到底什么是直接调取颜色的方法呢？简单，直接输入颜色值就好了。

直接输入颜色值所表达的颜色是最多的，整整有256*256*256=16777216种颜色！虽然看起来RGB函数也是利用红、绿、蓝三原色搭配，也是这么多种，但是一般来说，RGB函数仅仅是给了一个近似颜色，而直接输入颜色值的时候才是直接从颜色库里面直接调取！

表达方法稍微复杂一点，需要使用十六进制来选择三种颜色的搭配分量，格式如下：＆HBBGGRR，其中&H代表使用十六进制，BB，GG，RR分别指蓝绿红三种颜色的值。