Sub AdjustDWLScale(ByRef DrawControl As System.Windows.Forms.Control, ByRef szColumn1 As String, ByRef szColumn2 As String)
        Dim DrawFact As Object
        Dim szSearch As Object
        Dim NMAXX As Single
        Dim NMAXY As Single
        Dim NMINX As Single
        Dim NMINY As Single
        Dim Dc As DAO.Recordset
        Dim DCC As DAO.Recordset
        Dc = CurDb.OpenRecordset("Columns", DAO.RecordsetTypeEnum.dbOpenDynaset)
        DCC = CurDb.OpenRecordset("Columns", DAO.RecordsetTypeEnum.dbOpenDynaset)
        szSearch = "CName='" & szColumn1 & "'"
        Dc.FindFirst(szSearch)
        szSearch = "CName='" & szColumn2 & "'"
        DCC.FindFirst(szSearch)
        If Dc.Fields(4).Value > DCC.Fields(4).Value Then
            NMAXX = Dc.Fields(4).Value
            NMINX = DCC.Fields(4).Value
            Drawscale = System.Math.Abs(Dc.Fields(4).Value - DCC.Fields(4).Value) + 2 * JUSTFACT
            DrawFact = Drawscale / 2
            DrawControl.Scale((NMINX - JUSTFACT, Dc.Fields(5).Value + DrawFact) - (NMAXX + JUSTFACT, DCC.Fields(5) - DrawFact))
        Else
            If Dc.Fields(4).Value < DCC.Fields(4).Value Then
                NMAXX = DCC.Fields(4).Value
                NMINX = Dc.Fields(4).Value
                Drawscale = System.Math.Abs(Dc.Fields(4).Value - DCC.Fields(4).Value) + 2 * JUSTFACT
                DrawFact = Drawscale / 2
              [b]  DrawControl.Scale((NMINX - JUSTFACT, Dc.Fields(5).Value + DrawFact) - (NMAXX + JUSTFACT, DCC.Fields(5) - DrawFact))[/b]
            End If
        End If
        If Dc.Fields(5).Value > DCC.Fields(5).Value Then
            NMAXY = Dc.Fields(5).Value
            NMINY = DCC.Fields(5).Value
            Drawscale = System.Math.Abs(Dc.Fields(5).Value - DCC.Fields(5).Value) + 2 * JUSTFACT
            DrawFact = Drawscale / 2
            [b]DrawControl.Scale((Dc.Fields(4) - DrawFact, NMAXY + JUSTFACT) - (DCC.Fields(4).Value + DrawFact, NMINY - JUSTFACT))[/b]
        Else
            If Dc.Fields(5).Value < DCC.Fields(5).Value Then
                NMAXY = DCC.Fields(5).Value
                NMINY = Dc.Fields(5).Value
                Drawscale = System.Math.Abs(Dc.Fields(5).Value - DCC.Fields(5).Value) + 2 * JUSTFACT
                DrawFact = Drawscale / 2
               [b] DrawControl.Scale((Dc.Fields(4) - DrawFact, NMAXY + JUSTFACT) - (DCC.Fields(4).Value + DrawFact, NMINY - JUSTFACT))[/b]            End If
        End If
        'DWMax = IIf(nMaxX > nMaxY, nMaxX, nMaxY)
        'DWMin = IIf(nMinX < nMinY, nMinX, nMinY)
           [b]DrawControl.Scale (DWMin - JUSTFACT, DWMax + JUSTFACT)-(DWMax + JUSTFACT, DWMin - JUSTFACT)
            DrawControl.Scale (nMinX - JUSTFACT, nMaxY + JUSTFACT)-(nMaxX + JUSTFACT, nMinY - JUSTFACT)[/b]
    End Sub