小问题1
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不能实现为什么?