我做了一个控件，想使它有一个STRING类型的属性，可它总说堆栈溢出！！

Question

怎摸办？
我是这样设的：
Public Property Get KeyPath() As StringEnd PropertyPublic Property Let KeyPath(ByVal vNewValue As String)
KeyPath = vNewValue
PropertyChanged "KeyPath"
End Property

Answer 1

private  m_sKeyPath as stringPublic Property Get KeyPath() As String
    keypath=m_skeypath
End PropertyPublic Property Let KeyPath(ByVal vNewValue As String)
m_sKeyPath = vNewValue
PropertyChanged "KeyPath"
End Property
that's ok

Answer 2

KeyPath = vNewValue
当然会堆栈溢出！
执行 KeyPath = vNewValue 就是给他赐值
给它赐值他就调用 
Public Property Let KeyPath(ByVal vNewValue As String)
KeyPath = vNewValue
PropertyChanged "KeyPath"
End Property
，自己循环掉自己， 不堆栈溢出才怪