vb中模块(Module)中的跨窗口变量在一个窗口改变时如何使另一个窗口的颜色改变

比如我在Module中定义了a As Integer， 在窗口2里面改供郸垛肝艹菲讹十番姜变了它的值，比如a本来等于0，现在等于1， 那么如何在这个值改变时立即使窗口1的颜色改变（只是举个例子）呢？

Module 里设置某个变量为Private、
如：Private VAR as integer

然后在Module里写一个设置VAR的过程　和　取得VAR的函数　

'设置VAR的值时全部通过下面这个过程（不管是Module里访问还是其他模块里访问都用这个）
Public sub Set_VAR(V as integer)
IF VAR<>V then 窗体1.backcolor=vbred '这里是当变量值改变时改变窗体1的背景的部分。
VAR=V
End Sub

'取得时用这个函数（在其他模块里时用）、在Module里面就直接访问了。
Public Function Get_VAR() as integer
Get_VAR=VAR
End Function

在窗口1里放一个TIMER监视这个值

窗口1中可以用个计时器Timer控件，检测到a等于1时就改变颜色。 也可以在窗口2直接改窗口1的供郸垛肝艹菲讹十番姜颜色：If a = 1 Then Form1.BackColor = vbBlue