Private Sub Form_Load()
 
    On Error Resume Next
    Set CMDialog1 = CreateObject("MSComDlg.CommonDialog")
....
 
Private Sub txtAltColor_Click()
    On Error Resume Next
    CMDialog1.Color = Me.BackColor
    CMDialog1.CancelError = True
    CMDialog1.flags = cdlCCRGBInit
    CMDialog1.ShowColor
    If Err.Number = 0 Then
        txtAltColor.BackColor = CMDialog1.Color
        txtAltColor.Text = CMDialog1.Color
    Else
        MsgBox "Error: " & Err.Number & " : " & Err.Description
    End If
 
End Sub