Long 2 RGB

[Abbas Arizi]

از تابع زیر استفاده کنید

Function GetRGB(ByVal cColor As Long, ByRef Red As Integer, _

ByRef Green As Integer, ByRef Blue As Integer) As String

   Red = cColor And &HFF&

   Green = ((cColor And &HFF00&) \ &H100)

   Blue = ((cColor And &HFF0000) \ &H10000)

   GetRGB = "RGB (" & Red & "," & Green & "," & Blue & ")"

End Function

ارگومان اول رنگ موردنظر و بقیه آرگومانها مقادیر برگشتی هستند