The following example displays the Color dialog box and sets the BackColor of the form to the selected color:
Private Sub Command1_Click()
' Set Cancel to True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
'Set the Flags property
CommonDialog1.Flags = cdlCCRGBInit
' Display the Color Dialog box
CommonDialog1.ShowColor
' Set the form's background color to selected color
Form1.BackColor = CommonDialog1.Color
Exit Sub
ErrHandler:
' User pressed the Cancel button
End Sub