Dim MyPropBag As PropertyBag

'缺省属性值:
Const m_def_TimeFormat = "hh-mm-ss"
'属性变量:
'Dim m_TimeFormat As String
Dim MyPropBag As PropertyBag


'注意！不要删除或修改下列被注释的行！
'MappingInfo=Timer1,Timer1,-1,Interval
Public Property Get Interval() As Long
    Interval = Timer1.Interval
End Property

Public Property Let Interval(ByVal New_Interval As Long)
    Timer1.Interval() = New_Interval
    PropertyChanged "Interval"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13,0,0,hh-mm-ss
Public Property Get TimeFormat() As String

If MyPropBag Is Nothing Then
    Debug.Print "MyPropBag Is Nothing in Get TimeFormat()"
    Set MyPropBag = New PropertyBag
    Call MyPropBag.WriteProperty("MyTimeFormat", m_def_TimeFormat, vbNullString)
End If

    'TimeFormat = m_TimeFormat
    TimeFormat = MyPropBag.ReadProperty("MyTimeFormat")
End Property

Public Property Let TimeFormat(ByVal New_TimeFormat As String)
    'm_TimeFormat = New_TimeFormat
    
    Call MyPropBag.WriteProperty("MyTimeFormat", New_TimeFormat)
    
    ''''''''''''''''''''''''''''''''''
    PropertyChanged "TimeFormat"
End Property

'注意！不要删除或修改下列被注释的行！
'MemberInfo=13
Public Function GetTime() As String
    GetTime = Time
End Function

Private Sub Timer1_Timer()
 If Me.TimeFormat <> "" Then
 Label1.Caption = Format(Time, Me.TimeFormat)
 Else
 Label1.Caption = Time
 End If

End Sub

'为用户控件初始化属性
Private Sub UserControl_InitProperties()
'    m_TimeFormat = m_def_TimeFormat
If MyPropBag Is Nothing Then
    Set MyPropBag = New PropertyBag
    Call MyPropBag.WriteProperty("MyTimeFormat", m_def_TimeFormat, vbNullString)
End If
    
    
    
End Sub

'从存贮器中加载属性值
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

    Timer1.Interval = PropBag.ReadProperty("Interval", 0)
    m_TimeFormat = PropBag.ReadProperty("TimeFormat", m_def_TimeFormat)
End Sub

Private Sub UserControl_Terminate()
Set MyPropBag = Nothing
End Sub

'将属性值写到存储器
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

    Call PropBag.WriteProperty("Interval", Timer1.Interval, 0)
    Call PropBag.WriteProperty("TimeFormat", m_TimeFormat, m_def_TimeFormat)
End Sub