commondialog

I am making a program and I want to set the default color in the CommonDialog1.ShowColor event.

Anyone know how? If so please tell me.

Thanks,

You need to set the common dialog flags first and then set the color property like this:

Code:

---

Private Sub Form_Load()
CommonDialog1.Flags = cdlCCRGBInit
End Sub

Private Sub Command1_Click()
CommonDialog1.Color = Label1.BackColor
CommonDialog1.ShowColor
Label1.BackColor = CommonDialog1.Color
End Sub

---