帮忙：vb 运行发生实时异常'91'

帮忙：vb 运行发生实时错误'91'
有个类模块（Class.cls）
有代码如下：
      Public   PubClId   As   Integer
      Public   Sub   Init()
              PubClId   =   1
      End   Sub
在标准模块中引用
    Public   MyMoKuai   as   New   Class
在FORM窗口中使用：
      MyMoKuai.PubClId=111
程序运行到MyMoKuai.PubClId=111时错误提示：
    实时错误 '91 ':
    对象变量或With块变量未设置
我该怎么解决？

[解决办法]
测试了下
没问题
你把class改下名试试