Public Sub Plot()
Dim sss As String
Dim i%
Dim R As Long
Dim HnFont As Long, HoFont As Long

        If Label1.Count >  1  Then
                For i = Label1.Count -  1  To  1  Step - 1 
                        Unload Label1(i)
                Next i
        End If
        
        With UserControl
                .AutoRedraw = True
                .Cls
                If Me.GraphScaleWidth =  0  Then
                        .ScaleWidth = cMaxX + cMaxX \  5 
                Else
                        .ScaleWidth = Me.GraphScaleWidth
                End If
                If Me.GraphScaleHeight =  0  Then
                        .ScaleHeight = -(cMaxY \  2  + cMaxY)
                Else
                        .ScaleHeight = Me.GraphScaleHeight
                End If
                .ScaleTop = cMaxY \  3  + cMaxY
                .ScaleLeft = -cMaxX \  8 

                'Axis X - рисуем ось X
                Line ( 0 ,  0 )-(cMaxX,  0 ), QBColor( 0 )
                'Axis Y - рисуем ось Y
                Line ( 0 ,  0 )-( 0 , cMaxY), QBColor( 0 )
                
                .CurrentX =  0 
                .CurrentY =  0 
                .FontSize =  8 
                'scale X - рисуем шкалу по оси X
                For i = dx ^  2  To cMaxX Step dx ^  2 
                    Line (i, - 5 )-(i,  10 ), QBColor( 0 )
                    .CurrentX = .CurrentX -  10 
                    .CurrentY = .CurrentY -  20 
                    Print i / dx
                Next i
                'scale Y - рисуем шкалу по оси Y
                For i = dx ^  2  To cMaxY Step dx ^  2 
                    Line (- 5 , i)-( 6 , i), QBColor( 0 )
                    .CurrentX = .CurrentX - (.TextWidth(CStr(cMaxY)) + .TextWidth(CStr(cMaxY)) \  5 )
                    Print i / dx
                Next i
                
                'draw graph - рисуем сам график
                .DrawStyle = vbDot
                For i =  1  To UBound(PtArr) -  1 
                    X1 = PtArr(i).X: Y1 = PtArr(i).Y
                    X2 = PtArr(i +  1 ).X: Y2 = PtArr(i +  1 ).Y
                    Line (X1, Y1)-(X2, Y2), QBColor( 1 )
                Next i
                
                'draw point label - рисуем точки и подписи на графике
                .DrawStyle = vbSolid
                For i =  1  To UBound(PtArr)
                    X1 = PtArr(i).X
                    Y1 = PtArr(i).Y
                    'point
                    Line (X1 -  10 , Y1)-(X1 +  14 , Y1), QBColor( 5 )
                    Line (X1, Y1 -  15 )-(X1, Y1 +  15 ), QBColor( 5 )
                    .ForeColor = vbRed
                    Circle (X1, Y1),  5 
                    Load Label1(i)
                    Label1(i).Caption = PtArr(i).ID & "(" & PtArr(i).X / dx & ":" & PtArr(i).Y / dx & ")"
                    Label1(i).Left = .CurrentX +  20 
                    Label1(i).Top = .CurrentY +  20 
                    Label1(i).Tag = PtArr(i).ID
                    Label1(i).Visible = True
                Next i
                
                .ForeColor = vbBlack
                'label axis x - подпись оси X
                .CurrentX = cMaxX /  2  - .TextWidth(Me.AxisXCaption) /  2 
                .CurrentY = - 50 
                .Font.Name = "Arial"
                .FontSize =  10 
                Print Me.AxisXCaption
                'label axis Y - подпись оси Y
                HnFont = CreateFont( 14 ,  0 ,  900 ,  900 , FW_NORMAL, False, False, False, OEM_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY,  34 , "Arial")
                HoFont = SelectObject(hdc, HnFont)
                sss = Me.AxisYCaption
                .CurrentY = cMaxY /  2  - .TextWidth(sss) /  2 
                .CurrentX = .ScaleLeft +  30 
                Print sss
                .lblHeader.Visible = True
                .AutoRedraw = False
        End With
        UserControl_Resize
End Sub

Public Sub SetValues(cn As ADODB.Connection, TableName As String, IDField As String, AxisXField As String, AxisYField As String)
Dim rs As ADODB.Recordset
Dim sqls As String
Dim i%
Dim PtXMax As Single, PtYMax As Single
        
        Me.ConnectionString = cn.ConnectionString
        Me.TableName = TableName
        Me.FieldNameID = IDField
        Me.FieldNameAxisX = AxisXField
        Me.FieldNameAxisY = AxisYField
        
        sqls = "SELECT " & IDField & "," & AxisXField & "," & AxisYField & " FROM " & TableName & " ORDER BY " & AxisXField
        Set rs = New ADODB.Recordset
        With rs
                .Open sqls, cn, adOpenStatic, adLockReadOnly, adCmdText
                ReDim PtArr(.RecordCount)
                Do While Not .EOF
                        i = i +  1 
                        PtArr(i).ID = .Fields(IDField)
                        PtArr(i).X = .Fields(AxisXField) * dx
                        PtArr(i).Y = .Fields(AxisYField) * dx
                        If PtArr(i).X > PtXMax Then PtXMax = PtArr(i).X
                        If PtArr(i).Y > PtYMax Then PtYMax = PtArr(i).Y
                        .MoveNext
                Loop
        End With
        Set rs = Nothing
        
        cMaxX = (PtXMax \ (dx ^  2 ) +  1 ) * (dx ^  2 )
        cMaxY = (PtYMax \ (dx ^  2 ) +  1 ) * (dx ^  2 )
        Me.GraphScaleWidth = cMaxX + cMaxX \  5 
        Me.GraphScaleHeight = -(cMaxY \  2  + cMaxY)
        
End Sub

                

'draw graph - рисуем сам график
.DrawStyle = vbDot
                For i =  1  To UBound(PtArr) -  1 
                    X1 = PtArr(i).X: Y1 = PtArr(i).Y
                    X2 = PtArr(i +  1 ).X: Y2 = PtArr(i +  1 ).Y
                    Line (X1, Y1)-(X2, Y2), QBColor( 1 )
                Next i

Private Type PointGraph
        ID As Long
        X As Single
        Y As Single
End Type

Private PtArr() As PointGraph