使用布尔值创建类时出现问题

Question

我在创建这个类时遇到问题，它指出Set参数无效，并且在下面的代码中出现错误。我已经对此进行了三次检查，似乎找不到问题！知道为什么会出现这种错误吗？

代码：

Option Explicit
Private pIsChargeable As Boolean
Public Property Set IsChargeable(value As Boolean)
pIsChargeable = value
End Property
Public Property Get IsChargeable() As Boolean
IsChargeable = pIsChargeable
End Property

错误：

编译错误：

同一属性的属性过程定义不一致，或者属性过程具有可选参数、ParamArray或无效的Set最终参数

Answer 1

Property Set用于Object类型的变量。您正在查找Property Let。

读一下奇普·皮尔森对课堂的解释可能也会有所帮助。