[Sample code] Public Property Let Caption(ByVal New_Caption As String) m_Caption = New_Caption DrawControl PropertyChanged s_Caption End Property [Operation] 
Property Let
D e f a u l t P r o p e r t y V a l u e
P r o p e r t y V a r i a b l e
P r o p e r t y G e t
P r o p e r t y L e t
R e a d
W r i t e