Code:
im objanything As Object
CommonDialog1.Flags = &H1&
CommonDialog1.ShowColor
Form11.BackColor = CommonDialog1.Color
Command5.BackColor = CommonDialog1.Color
Command2.BackColor = CommonDialog1.Color
Command4.BackColor = CommonDialog1.Color
Command1.BackColor = CommonDialog1.Color
Frame1.BackColor = CommonDialog1.Color
Picture1.BackColor = CommonDialog1.Color
Command3.BackColor = Commondialog1.color
Of course -modify the code to suit the controls that are on your program's form/forms.