' Common Dialog Color Requester
Parent.CD1.Flags = cdlCCRGBInit Or cdlCCPreventFullOpen
Parent.CD1.CancelError = False
Parent.CD1.ShowColor
If Err Then Exit Sub

Parent.BackColor = Parent.CD1.Color