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
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
( rgbcolors.html )- by Paolo Puglisi
- Modifica del 17/12/2023