    Private Sub InitGrid_Stab()
      Ширина_Вся = PictureBox_Stab.Width:     Ширина_Рис = Ширина_Вся - (Зазор_Лев  + Зазор_Пра):    Край_Пра = Зазор_Лев + Ширина_Рис
      Высота_Вся = PictureBox_Stab.Height:    Высота_Рис = Высота_Вся - 2 * Зазор_Вер:               Край_Ниж = Зазор_Вер + Высота_Рис

        Dim Прям_ник = New Rectangle(Зазор_Лев, Зазор_Вер, Ширина_Рис, Высота_Рис)

        GetGraphicsObject(PictureBox_Stab, objGraph_Stab)
        
        objGraph_Stab.SmoothingMode = Drawing.Drawing2D.SmoothingMode.HighQuality      'качество проведения линий (А.Гарнаев)

        Dim QminS$ = Format(QMIN, "0.00E+0"):    If QMIN >= 0 Then QminS = " " & QminS  ': msgbox("QminS = " & QminS)
        Dim QmaxS$ = Format(QMAX, "0.00E+0"):    If QMAX >= 0 Then QmaxS = " " & QmaxS  ': msgbox("QmaxS = " & QmaxS)
        Dim XminS$ = Format(Xmin, "0.00E+0"):    If Xmin >= 0 Then XminS = " " & XminS  ': msgbox("XminS = " & XminS)
        Dim XmaxS$ = Format(Xmax, "0.00E+0"):    If Xmax >= 0 Then XmaxS = " " & XmaxS  ': msgbox("XmaxS = " & XmaxS)   

        BmS =  Зазор_Лев         ' Коэффицинты пересчёта реальных координат в экранные
        AmS =  Ширина_Рис / (QMAX - QMIN)
        DmS =  Зазор_Вер  + Высота_Рис
        CmS = -Высота_Рис / (XmaxS - XminS)

        With objGraph_Stab
            .Clear(PictureBox_Stab.BackColor):    .DrawRectangle(Pns(0), Прям_ник)          ' рисование пр-ка
            Dim ШагW As Integer = CInt(Ширина_Рис / 2)    ' шаг сетки по ширине
            Dim ШагH As Integer = CInt(Высота_Рис / 2)    '  "    "   "  высоте
            Dim Перо1 As Pen = New Pen(Clr(13), 2):    Перо1.DashStyle = DashStyle.Dot
            Dim XIj As Integer = Зазор_Лев + ШагW
            .DrawLine(Перо1, XIj, Зазор_Вер + 1, XIj, Зазор_Вер + Высота_Рис - 1)
            Dim YIi As Integer = Зазор_Вер + ШагH
            .DrawLine(Перо1, Зазор_Лев + 1, YIi, Край_Пра - 1, YIi)

            .DrawString(XminS, txtFont1, Brushes.Black, 0, Край_Ниж - 8) ': msgbox("XminS = " & XminS)
            .DrawString(XmaxS, txtFont1, Brushes.Black, 0, Зазор_Вер - 8)                     ': msgbox("XmaxS = " & XmaxS)
            .DrawString("Xi", txtFont1, Brushes.Black, Зазор_Лев, 2)                                       ' надписи

            Dim Title3_Stab$ = "Plot a function Xi(Qmod), i = IComp"
            .DrawString(Title3_Stab, txtFont1, New SolidBrush(Clr(0)), Зазор_Лев + Ширина_Рис / 2 - 88, 2)
            .DrawString(QminS, txtFont1, Brushes.Black, Зазор_Лев - 21, Край_Ниж + 2) ': msgbox("QminS = " & QminS)
            .DrawString(QmaxS, txtFont1, Brushes.Black, Край_Пра - 21, Край_Ниж + 2) ': msgbox("QmaxS = " & QmaxS)
            .DrawString("Qmod", txtFont1, Brushes.Black, Край_Пра, Край_Ниж - 14)
        End With
        objGraph_Stab.SetClip(Прям_ник)                                           'ограничение области графиков (А.Гарнаев)
    End Sub
