Opens the color dialog. 100% for beginers.
Opens the color dialog. 100% for beginers.
Rate Opens the color dialog. 100% for beginers.
(1(1 Vote))
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
Opens the color dialog. 100% for beginers. Comments
No comments yet — be the first to post one!
Post a Comment