Private Sub Form_Click() Dim Hexa As StringWith cd .ShowColor Hexa = Format$(Hex(.Color), "000000") MsgBox Hexa End With End Sub