    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
