    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
