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