如何获得各颜色的RGB值

Private Sub Command1_Click()

Debug.Print GETRGB(vbRed)

End Sub

Function GETRGB(lngColor As Long) As String

Dim strR As String

Dim strG As String

Dim strB As String

strR = CStr(lngColor Mod 256)

strG = CStr(lngColor \ 256 Mod 256)

strB = CStr(lngColor \ 256 \ 256)

GETRGB = "RGB(" & strR & "," & strG & "," & strB & " )"

End Function

已经做过测试，没有问题