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

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

        Dim QminS$ = Format(QMIN, "0.00E+0") : If QMIN >= 0 Then QminS = " " & QminS
        Dim QmaxS$ = Format(QMAX, "0.00E+0") : If QMAX >= 0 Then QmaxS = " " & QmaxS
        Dim XminS$ = Format(Xmin, "0.00E+0") : If Xmin >= 0 Then XminS = " " & XminS
        Dim XmaxS$ = Format(Xmax, "0.00E+0") : If Xmax >= 0 Then XmaxS = " " & XmaxS
 
        BmR = Зазор_Лев                 ' Коэффицинты пересчёта реальных координат в экранные
        AmR = Ширина_Рис / (QMAX - QMIN)
        DmR = Зазор_Вер  + Высота_Рис
        CmR = -Высота_Рис / (Xmax - Xmin)

        	If rbt_Temp_SS.Checked Then objGraph_S = PictureBox_Graph_S.CreateGraphics _
        	Else                        GetGraphicsObject(PictureBox_Graph_S, objGraph_S)
        
        objGraph_S.SmoothingMode = Drawing.Drawing2D.SmoothingMode.HighQuality    'качество проведения линий (А.Гарнаев)

	        objGraph_IN = pcb_IN.CreateGraphics
	        objGraph_NS = pcb_NS.CreateGraphics
	        objGraph_QM = pcb_QM.CreateGraphics

        With objGraph_S
            .Clear(PictureBox_Graph_S.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)

	            Dim Перо2 As Pen = New Pen(Color.Brown, 2) : Перо2.DashStyle = DashStyle.Dot
	            Dim QsolvG% = CInt(AmR * (QSOLV - QMIN) + BmR)
	            .DrawLine(Перо2, QsolvG, Зазор_Вер + 1, QsolvG, Край_Ниж - 1)

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

            Dim Title_Rsch$ = "Plot of a function Xi(Qmod)"
            .DrawString(Title_Rsch, txtFont1, New SolidBrush(Clr(0)), Зазор_Лев + Ширина_Рис / 2 - 74, 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)
            
            	   .DrawString("Qsolv", txtFont1, Brushes.Black, QsolvG - 18, Край_Ниж + 7)
        End With
        objGraph_S.SetClip(Прям_ник)                                           'ограничение области графиков (А.Гарнаев)
    End Sub    '    InitGrid_R
