CommonDialog Color, Cara Menggunakannya

Private Sub Command1_Click()
    With CommonDialog1
        .CancelError = True
        On Error GoTo ErrHandler
        .Flags = cdlCCRGBInit
        .ShowColor
        Form1.BackColor = .Color
    End With
    Exit Sub
ErrHandler:
End Sub