by Me (3 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Originally Published: Sat 31st May 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Opens the color dialog. 100% for beginers.
On Error GoTo ErrHandler
CommonDialog1.Flags = cdlCCRGBInit
CommonDialog1.ShowColor
'What to do with the selected color
Form1.BackColor = CommonDialog1.Color
Exit Sub
ErrHandler:
Exit Sub