VB程序题，不难的

快捷键 ctrl+T 出现 部件 对话框中，“控件”标签中 添加 Micrsoft Common DialogControl6.0 “确定”
在窗体上添加这个控件 就是 commondialog1
窗体 代码如下
Private Sub Check1_Click()
Command1.Enabled = Check1.Value
End Sub

Private Sub Command1_Click()
CommonDialog1.ShowColor
Label1.ForeColor = CommonDialog1.Color
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Command1.Enabled = False
Label1.AutoSize = True
Label1.Alignment = 2
HScroll1.Min = 12
HScroll1.Max = 40
End Sub

Private Sub HScroll1_Change()
Label1.FontSize = HScroll1.Value
End Sub

哥们，看不太清啊！！！

Private Sub Check1_Click()
If Check1.Value = 1 Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub

Private Sub Command1_Click()
CommonDialog1.ShowColor
Label1.ForeColor = CommonDialog1.Color
End Sub

Private Sub C