用布尔值创建类的问题

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。

同时阅读Chip Pearson的explanation类可能会有所帮助。