Property Get MyProperty() As Integer MyProperty = m_MyPropertyEnd PropertyProperty Let MyProperty(NewValue As Integer) m_MyProperty = NewValueEnd Property
Property MyProperty() As Short Get MyProperty = m_MyProperty End Get Set m_MyProperty = Value End SetEnd Property