在类中调用 settimer 的问题

[j119]

实现activex dll
模块中
Public Sub timerproc(ByVal hwnd As Long, ByVal msg As Long, ByVal idevent As Long, ByVal curtime As Long)
Call pA.procTi ' 如果没有pa提示找不到函数,否则提示找不到变量
End Sub

类pA中
Public Sub ffa()
'启动定时器，100毫秒出发一次
timerId = SetTimer(0, 0, 100, AddressOf timerproc)
....
end sub
Public Function procTi
lTime = lTime + 1
If lTime > 100 Then
KillTimer 0, timerId
lState = True
End If
End Function
运行时提示未找到变量,如何处理