Form # 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
(graficaseparare3componentidelcolore.html)- by Paolo Puglisi - Modifica del 25/3/2019