刚写了个程序试了一下，需要加载才行。
不过还有一个办法，就是在定义的时候直接付值，例如：
Public an As String = "OK"

不行哦，我的那个值不是固定的，是动态输入的。

你在
Dim po As New ProduceOrder
时，是在过程中声明的，当过程结束后，这个对象就被清除了。
如果你还要其过程中使用这个对象，当然里面的数据就全没有了。

你什么时候需要改变这个变量，直接使用 po.an="我的数据"，就可以了。

无语……

哦，谢谢你的帮助，通过你的说明，我想到把声明和赋值的过程倒转就可以得到我需要得那样了。

这个好象建个模块,在里面声名个全局变量就可以了!!

你在模块 定义不就行了吗》？？？