源自动事件

Question

写了一个类：（类名：cls）
Option ExplicitPublic y As Integer
 
Private m As IntegerPrivate Property Get y() As Integer
y = m
End PropertyPrivate Property Let y(a As Integer)
m = a
End PropertyPublic Function ab() As Integer
MsgBox "msad"
End Function窗体代码：
Option Explicit
Public WithEvents clsm As clsPrivate Sub Form_Load()
Set clsm = New cls
clsm.ab
End Sub运行时出现两个错误：1，在类中"发现二义性的名称 y“
2.如果使用withevents变量时出现错误提示”对象不是源自动事件“。
敬请高手指教……

Answer 1

Public   y   As   Integer 
改成
Public  m_y  As   Integer 
後面使用的地方相應地修改——變量和屬性名稱重複了。類中必需至少有一個事件，如
Public Event onCreate(aa As Integer)

Answer 2

類中必需至少有一個事件，才可以 WithEvents 定義。