程序代码：

Private m_Flag As Boolean                                   '私有成员
Private m_GetData As Boolean
Private m_CompressByte As Boolean



Private Sub UserControl_Initialize()
    m_Flag = False                  '在控件初始化阶段将m_Flag设置False
End Sub

Public Property Set Flag(ByVal Value As Boolean)      '只写属性

        m_Flag = Value
        Timer1.Enabled = m_Flag
        
End Property

'''''''获得函数返回值设置成属性''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Property Get CompressByte() As Boolean         '只读属性

End Property

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Property Get GetData() As Boolean              '只读属性

End Property

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


Private Function CompressByte(ByteArray() As Byte) As Boolean    '私有函数
    
End Function



Private Function GetData() As Boolean                             '私有函数
  
End Function


Private Sub SetArry(param() As Byte)

End Sub


Private Sub SetFlag()

End Sub


Private Sub Timer1_Timer()
'CompressByte(ByteArray() As Byte)
'GetData()
'SetArry(param() As Byte)
'SetFlag()
End Sub