在平时编写程序的过程中，我们经常会对控件的颜色进行设置。

除了在属性窗口中，直接使用调色板来设置颜色外，还可以应用下面的4种颜色函数来进行动态调整。

Private Sub Command1_Click()
    'VB编程提供了4种方法来调整颜色
    '1) RGB函数
    Me.BackColor = RGB(100, 50, 100)    'RGB函数
    '2) QBColor函数共有0~15的取值
    Me.BackColor = QBColor(10)
    '3)、颜色常量 vbred vbgreen vbblue
    Me.BackColor = vbRed
    '4)、直接写颜色的值
    Me.BackColor = &HFFFF& '通过属性窗口的调色板，颜色比较
End Sub

推荐使用RGB色，可以参考《颜色值转换表，直接显示各色卡颜色并列出了RGB和16色》使用RGB色（不要直接使用16色，那样不准），比如：

Me.BackColor = RGB(102, 139, 139)

就是蓝色，而&H668B8B颜色就不对，原因是：

小端都是低位在前高位在后，所以RGB颜色在x86小端机上的十六进制顺序裆燃是 BBGGRR，而不是 RRGGBB。

所以，RGB(102, 139, 139) = &H8B8B66，而不是 &H668B8B

Private Sub Command1_Click()
    Debug.Print Hex(RGB(102, 139, 139)) '得到 8B8B66
End Sub

运行结果：

8B8B66