Color Palette?

how do I make it so that when A person clicks on a label, make the color Pallette appear, then let the person choose a color, then make that color the back color of label1?

Code:

---

'use the commondialog control to give user
'the ability to change the form's backcolor
'uses Label1 and CommonDialog1

Option Explicit

Private Sub Command2_Click()

End Sub

Private Sub Form_Load()
'set the flag
    CommonDialog1.Flags = cdlCCRGBInit
End Sub

Private Sub Label1_Click()
'show the color box
    CommonDialog1.ShowColor
'accept the color selected and color form
    Label1.BackColor = CommonDialog1.Color
End Sub

---

thanks