Подскажите как мне нарисовать паука в паутине в qbasic.

вот моя прога, 2 года назад писал и не потерял)) тут по нажатию на форму рисуется паутина как бы центр там куда ты нажала. вообщем думаю разберешься, если что - пиши.

public class form1 dim x, y as integer sub pau(byval gr as graphics, byval x as integer, byval y as integer) dim i, w, h as integer gr.clear(color.white) w = clientrectangle.width / 2 h = clientrectangle.height / 2 for i = 0 to 2 gr.drawline(pens.burlywood, new point(w * i, 0), new point(x, y)) gr.drawline(pens.burlywood, new point(w * i, h * 2), new point(x, y))

next gr.drawline(pens.burlywood, new point(0, h), new point(x, y)) gr.drawline(pens.burlywood, new point(w * 2, h), new point(x, y)) end sub private sub form1_mouseup(byval sender as object, byval e as system.windows.forms.mouseeventargs) handles me.mouseup dim gr as graphics = me.creategraphics

x = e.x y = e.y pau(gr, x, y) end sub

private sub form1_paint(byval sender as object, byval e as system.windows.forms.painteventargs) handles me.paint dim gr as graphics = e.graphics pau(gr, x, y) end sub

private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load x = 100 y = 230 end subend class