'==================== Metody ========================

  Private Sub SetGaugeParameters()
    ' Cel: Ta procedura ustawia kilka parametrów, 
    '      które są używane przez wskaźnik.
    '
    ' Lista argumentów:
    '  brak
    '
    ' Zwracana wartość:
    '  niedostępna
    '
    If mCurrent > mMax Then     ' Wartość zbyt duża?
      mCurrent = mMax
    End If

    If mCurrent < mMin Then    ' Wartość zbyt mała?
      mCurrent = mMin
    End If
    mRange = mMax - mMin   ' Oblicz zakres wartości wskaźnika 
    mTick = mRange / 5.0   ' Oblicz, gdzie powinien się zaczynać 
                           ' znak kontrolny 
    mGap = mTall / 5       ' Znajdź przerwy pomiędzy znakami kontrolnymi
  End Sub

  Private Sub Gauge_Resize(ByVal sender As Object, ByVal e As _
          System.EventArgs) Handles MyBase.Resize
    Dim ControlWidth As Integer = Me.ClientRectangle.Width
    Dim ControlHeight As Integer = Me.ClientRectangle.Height

    If ControlHeight < 50 Then    ' Ustaw minimalną wysokość formantu
      ControlHeight = 50
      Me.Height = 50
    End If

    If ControlWidth < 50 Then     ' Ustaw minimalną szerokość formantu
      ControlWidth = 50
      Me.Width = ControlWidth
    End If

    mTall = Me.Height * 0.9
    mTopSide = (Me.Height - mTall) / 2 ' Położenie górnego 
                                       ' brzegu wskaźnika
    mLeftSide = Me.Width * 0.05     'Położenie lewego brzegu wskaźnika
    mWide = Me.Width * 0.2       ' Szerokość wskaźnika

    Invalidate()

  End Sub
