'convert binary to Hex

'make a form with a commondialog.control
'make a command.control named cmdColor

Sub cmdColor_Click()
    
dim
 RedValue, GreenValue, BlueValue
    
dim
 AColor

	'see 
help
 
on
 Flags for settings
    CMDialog1.Flags = &H1& Or &H4&
	'action 3 means 
show
 colorpalette
    CMDialog1.Action = 3
	'when you press OKE the color will be 
put
 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