添加一个模块，在其中声明一个 Public 变量存放颜色值，然后在每个窗口的Shape控件定义FillColor属性的时候都使用这个变量所定义的颜色值。
例如在模块中：
Public clr
在启动首窗体中：（也就是程序打开的第一个窗体）
Private Sub Form_Load()
clr = vbRed
Shape1.FillColor = clr
End Sub
在其它中：
Private Sub Form_Load()
Shape1.FillColor = clr
End Sub
你也可以随时改变颜色值：
Private Sub Command1_Click()
clr=vbBlue
End Sub
举个例子吧:
假设你有N多个窗体，每个窗体上都有一个 Shape1控件，现在统计改变其填充样式及填充颜色：
For i = 1 To Forms.Count
Forms(i - 1).Shape1.FillStyle = 2 '统一样式
Forms(i - 1).Shape1.FillColor=vbRed '统一填充色为红色
Next
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024