函数和Paint()事件之间如何传递参数？　[金字塔]

我在VBA一个模块最顶部申明了一个变量 ：private n1，我理解N1变量在这个模块中都有效,这个模块中写了一个函数，在这个函数中对N1赋值，然后，我在同一个模块中写了Sub Technic_Paint()事件，在其中使用N1变量，这时就出现问题了，发现Sub Technic_Paint()中的N1和之前那个函数赋值后的N1不一样，MSGBOX 弹出N1看是什么都没有。

我的目的是把函数中计算后的N1 变量传递到Sub Technic_Paint()事件中使用，请问如何达到这个目的？

 来源: CXH99.COM

那请问如何达到我说的参数传递的目的呢？

贴一个能呈现出此问题的范例代码我们看一下，以便我们详细了解你遇到的问题