Label17.Text = tbol.Text / xr
        Dim q As String = Label17.Text
 
 
        Dim g As Graphics = GroupBox1.CreateGraphics()
        For i = 0 To lv.Items.Count - 1
            Dim d, r, t As Integer
            d = lv.Items(i).SubItems(1).Text / q
            r = (x1 - (d / 2)) + lv.Items(i).SubItems(2).Text / q
            t = y1 + lv.Items(i).SubItems(3).Text / q
            g.DrawEllipse(Pens.Black, r, t, d, d)
 
        Next