VBA Intellisense无法激活

Question

我不确定这是否是正常行为，但是我具有以下接口和实现该接口的类。

接口 IFactoryPart ：

Option Compare Database
Option Explicit

Public xDim As Double
Public yDim As Double
Public Gauge As Byte
Public HoleData As Collection

班级空白：

Option Compare Database
Option Explicit

Implements IFactoryPart

'from interface
Public txDim As Double
Public tyDim As Double
Public tGauge As Byte
Public tHoleData As Collection

'class specific
'   -nothing yet


Public Property Get IFactoryPart_xDim() As Double
    IFactoryPart_xDim = txDim
End Property

Public Property Let IFactoryPart_xDim(ByVal newxDim As Double)
    txDim = newxDim
End Property

当我键入以下内容时，智能感知不会激活：

Dim inputBlank As New Blank

'doesn't activate when i type the period
inputBlank.xDim = 1

我似乎找不到它不起作用的原因，所以也许我写的东西不正确？