Question

vb 中怎么实现多个窗口中的shape图像颜色统一变化？

谢谢，不过我大概想实现的功能是：在这个窗口中按一下command其中shape颜色改变，在另外一个窗口中对应的shape颜色也随着改变，不知道怎么实现，请您指教

Answer 1

添加一个模块，在其中声明一个 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

Answer 2

举个例子吧:
假设你有N多个窗体，每个窗体上都有一个 Shape1控件，现在统计改变其填充样式及填充颜色：
For i = 1 To Forms.Count
Forms(i - 1).Shape1.FillStyle = 2 '统一样式
Forms(i - 1).Shape1.FillColor=vbRed '统一填充色为红色
Next