Посмотрите, как рисовать на следующих примерах.

Вы должны положить DrawingArea (область рисования) на вашу форму, чтобы эти примеры работали.

Вы найдете DrawingArea на вашей инструментальной панели Gambas.

Пример 1 Draw.Line (рисование линии)

PUBLIC SUB Form_Open()
DIM B AS Integer
Draw.Begin(DrawingArea1)
FOR B = 1 TO 200 STEP 10
Draw.Line(1, B, 500, B)
NEXT
Draw.End
END

Пример 2: LineWidth (толщина линии)

PUBLIC SUB Form_Open()
DIM B AS Integer
Draw.Begin(DrawingArea1)
Draw.Line(10,100, 20, 100)
FOR B = 1 TO 100 STEP 10
Draw.LineWidth=B
Draw.Line(10+B,100, 20+B, 100)
NEXT
Draw.End
END

Пример 3 Random Points (случайные точки)

PUBLIC SUB Form_Open()
DIM x AS Integer
DIM y AS Integer
DIM z AS Integer
Draw.Begin(DrawingArea1)
FOR z = 1 TO 10000
x = Int(Rnd(0,200))
y = Int(Rnd(0,200))
Draw.Point(x,y)
NEXT
Draw.End
END

-- ReinerHoffmann - 10 Jan 2004