下面这些玩意你写了没有?
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    RaiseEvent WriteProperties(PropBag)
    Call PropBag.WriteProperty("ExamineItemsXMLUrl", g_strExamineItemsXMLURL, DEF_EXAMINEITEMSDOCURL)
End SubPrivate Sub UserControl_InitProperties()
  RaiseEvent InitProperties
  g_strExamineItemsXMLURL = DEF_EXAMINEITEMSDOCURL
End SubPrivate Sub UserControl_ReadProperties(PropBag As PropertyBag)
    g_strExamineItemsXMLURL = PropBag.ReadProperty("ExamineItemsXMLUrl", DEF_EXAMINEITEMSDOCURL)
End SubPublic Property Let ExamineItemsXMLUrl(ByVal strURL As String)
  g_strExamineItemsXMLURL = strURL
End Property
Public Property Get ExamineItemsXMLUrl() As String
'输入参数:
'功能
  ExamineItemsXMLUrl = g_strExamineItemsXMLURL
End Property