Option Explicit

Private Sub Command1_Click() CommonDialog1.flags = &H1 CommonDialog1.Color = BackColor CommonDialog1.Action = 3 CommonDialog1.Color = Form1.BackColor

End Sub

Private Sub Command2_Click() Unload Me End Sub 运行后CommonDialog1.Color = Form1.BackColor不能实现为什么?