Public Sub Form_Open()
Dim hColorInfo As ColorInfo
hColorInfo = Color[6357247]
Print hColorInfo.Alpha
Print hColorInfo.Blue
Print hColorInfo.Color
Print hColorInfo.Green
Print hColorInfo.Hue
Print hColorInfo.Luminance
Print hColorInfo.Red
Print hColorInfo.Saturation
Print hColorInfo.Value
' Show color in a label (Label1)
Label1.Background = Color.RGB(hColorInfo.Red, hColorInfo.Green, hColorInfo.Blue, hColorInfo.Alpha)
End
Probabilmente è quello che lui cerca, ma io non ho capito proprio niente di quello che cerca. :-XSi, vuole ottenere dei colori partendo da dei valori interi, però facendo come vuole lui diventa difficilissimo ottenere dei risultati leggibili.