自定义控件中自定义属性问题

Dim inFileName As String
Public Property Get inname() As String
  inname = inFileName
End Property
Public Property Let inname(ByVal vNewValue As String)
  inFileName = vNewValue
  PropertyChanged "inname"
End Property
在测试的时候填写了inname后，运行测试后inname和InFileName都是空值，代码是不是错了还是怎么样啊

代码不完整，属性值未写入包
可以这样定义：

Const m_def_inname = "初始值"
Dim inFileName As String

Public Property Get inname() As String
  inname = inFileName
End Property
Public Property Let inname(ByVal vNewValue As String)
 inFileName = vNewValue
 PropertyChanged "inname"
End Property

Private Sub UserControl_InitProperties()
  inFileName = m_def_inname
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
  inFileName = PropBag.ReadProperty("inname", m_def_inname)
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
  Call PropBag.WriteProperty("inname", inFileName, m_def_inname)
End Sub
资源里有实例，下载地址：http://download.csdn.net/source/3499246