Public Property lLogged() As Boolean Get Return Width End Get Set(ByVal Value As Boolean) If (Value > 0) Then Width = Value Else Throw New ArgumentOutOfRangeException("Width must be 1 or higher") End If End Set