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
已经做过测试，没有问题
