Public Property MaPropriete As Type Get Return ... End Get Set(byval pValue as Type) MaVariable=pValue End Set End Property Public Property MaPropriete As Type Public ReadOnly Property MaPropriete As Type Get Return ... End Get End Property Public WriteOnly Property MaPropriete As Type Set(byval pValue as Type) MaVariable=pValue End Set End Property
Private _Prop2 As String = "Empty" Property Prop2 As String Get Return _Prop2 End Get 'if ..... then Set(ByVal value As String) _Prop2 = value 'else ' Set(ByVal value As String) ' _Prop2 = value 'end if End Set End Property