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