'convert binary to Hex 'make a form with a commondialog.control 'make a command.control named cmdColor Sub cmdColor_Click()Returndim
RedValue, GreenValue, BlueValuedim
AColor 'seehelp
on
Flags for settings CMDialog1.Flags = &H1& Or &H4& 'action 3 meansshow
colorpalette CMDialog1.Action = 3 'when you press OKE the color will beput
into the variable AColor AColor = CMDialog1.Color RedValue = (ACOLOR And &HFF&) GreenValue = (ACOLOR And &HFF00&) \ 256 BlueValue = (ACOLOR And &HFF0000) \ 65536 ChoosenColor = Format(Hex(RedValue) & Hex(GreenValue) & Hex(BlueValue), "000000") msgbox ChoosenColor End Sub