Как из CommonDialogs получить ColorDialog? - VB

Формулировка задачи:

как из CommonDialog VB6 получить ColorDialog и подскажите основные методы и свойства или дайте ссылку на описание

Решение задачи: «Как из CommonDialogs получить ColorDialog?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
'cdlCCFullOpen = 2 'выводит полное диалоговое окно с настройкой цветов
'cdlCCPreventFullOpen = 4 'выводит часть окна с цветами по-умолчанию и делает недоступной кнопку Define Custom Colors (определение настраиваемых цветов)
'cdlCCHelpButton = 8 'делает видимой кнопку Help
'cdlCCRGBInit = 1 'выводит часть окна с цветами по-умолчанию но кнопка Define Custom Colors (определение настраиваемых цветов) доступна для расширения окна
 
 
 
CommonDialog1.Flags = cdlCCRGBInit
On Error GoTo Cansel
CommonDialog1.CancelError = True
CommonDialog1.ShowColor
Text1.BackColor = CommonDialog1.Color
Exit Sub
Cansel:
If Err.Number = cdlCancel Then
Exit Sub
Else
MsgBox Err.Description
End If
End Sub