RGBColors

Dim ColorValue As Long
Dim Rosso As Integer
Dim Blu As Integer
Dim Verde As Integer
ColorValue = Form1.BackColor
Rosso = ColorValue And &HFF&
Verde = (ColorValue And &HFF00&) \ 256
Blu = (ColorValue And &HFF0000&)\65536