Private _MyProperty As String
Public WriteOnly Property MyProperty() As String
Set(ByVal value As String)
_MyProperty = value
End Set
End Property
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 53