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”时有属性，并且有枚举中的所有选项。

你必须先发布此控件,然后在此控件的属性窗口中才能看到此属性
VB6 IDE窗口——菜单——外接程序——选中控件接口向导——加载，然后在外接程序的子菜单中使用此向导发布你自定义的控件后，就能实现了