form风格问题

Question

如何写一段代码，或者一个类
来让一个项目中的所有窗体都有相同的风格
比如背景都是黑色，或者都是渐变颜色的
请给出思路和实例代码
谢谢。

Answer 1

'在模块中定义设置风格的函数
Public Sub SetFormStyle(frm As Form)
    frm.BackColor = vbBlack
    '你可以自己添加其它的控制
End Sub'在需要设置的窗口LOAD事件中调用函数就可以了
Private Sub Form_Load()
    SetFormStyle Me
End Sub