Dim m_Stamp As String
Const m_def_Stamp = "CP1L"
Public Enum Stamptype
     CP1L
     CPM1A
     CPM2A
     End Enum
Public Property Get Stamp() As Stamptype
    Stamp = m_Stamp
End Property
Public Property Let Stamp(ByVal new_stamp As Stamptype)
    m_Stamp = new_stamp
    PropertyChanged "Stamp"
End Property

大家帮我看看，我定义的属性有什么问题，为什么在使用此控件时，属性栏里没有此属性，但在编写代码界面中能够看到，即使用“控件名.stamp”时有属性，并且有枚举中的所有选项。