2013年计算机二级考试VB基础教程：通用对话框控件_第2页

　　2.Color对话框

　　下面的过程可用用户选择的颜色作为窗体的底色。

　　Private Sub mnuColor_Click ()

　　On Error GoTo CancelButton

　　CommonDialog1.CancelError = True

　　CommonDialog1.ShowColor

　　Form1.BackColor = CommonDialog1.Color

　　CancelButton:

　　Exit Sub

　　End Sub