  '================== Procedury właściwości =====================

  <Description("Minimalna wartość wskaźnika"), _
  Category("Appearance")> _
  Property Minimum() As Double  ' Minimum
    Get
      Return mMin
    End Get
    Set(ByVal Value As Double)
      mMin = Value
    End Set

  End Property

  <Description("Maksymalna wartość wskaźnika"), _
  Category("Appearance")> _
  Property Maximum() As Double   ' Maksimum
    Get
      Return mMax
    End Get
    Set(ByVal Value As Double)
      mMax = Value
    End Set

  End Property

  <Description("Wartość niebezpieczna wskaźnika, gdzie kolor" & _
  " zmienia się na czerwony"), Category("Appearance")> _
  Property Danger() As Double    ' Wartość niebezpieczna czerwonej linii 
    Get
      Return mDanger
    End Get
    Set(ByVal Value As Double)
      mDanger = Value
    End Set
  End Property

  <Description("Wartość ostrzeżenia wskaźnika, gdzie kolor" & _
  " zmienia się na żółty"), Category("Appearance")> _
  Property Caution() As Double   'Wartość ostrzeżenia żółtej linii
    Get
      Return mCaution
    End Get
    Set(ByVal Value As Double)
      mCaution = Value
    End Set
  End Property

  <Description("Wysokość wskaźnika"), _
  Category("Appearance")> _
  Property Tall() As Integer     ' Jak wysoki jest wskaźnik?
    Get
      Return mTall
    End Get
    Set(ByVal Value As Integer)
      mTall = Value
    End Set
  End Property
  <Description("Szerokość wskaźnika"), _
  Category("Appearance")> _
  Property Wide() As Integer     ' Jak szeroki jest wskaźnik?
    Get
      Return mWide
    End Get
    Set(ByVal Value As Integer)
      mWide = Value
    End Set
  End Property

  <Description("Położenie lewego brzegu wskaźnika"), _
  Category("Appearance")> _
  Property LeftSide() As Integer    ' Gdzie jest lewy brzeg wskaźnika
    Get                 ' na formularzu?
      Return mLeftSide
    End Get
    Set(ByVal Value As Integer)
      mLeftSide = Value
    End Set
  End Property

  <Description("Położenie górnego brzegu wskaźnika"), _
  Category("Appearance")> _
  Property TopSide() As Integer    ' Gdzie jest góra wskaźnika
    Get                              ' na formularzu?
      Return mTopSide
    End Get
    Set(ByVal Value As Integer)
      mTopSide = Value
    End Set
  End Property

  <Description("Bieżąca wartość wskaźnika"), _
  Category("Data")> _
  Property Current() As Double    ' Jaka jest bieżąca wartość?
    Get
      Return mCurrent
    End Get
    Set(ByVal Value As Double)
      mCurrent = Value
    End Set
  End Property
