Пример:. Private Sub Окружность(х0 As Integer, у0 As Integer, хn As Integer, yn As Integer, width As Integer

Private Sub Окружность(х0 As Integer, у0 As Integer, хn As Integer, yn As Integer, width As Integer,

Х As Integer, у As Integer, r As Integer, color As Integer)

Scale (х0, у0)-(хn, yn)

DrawWidth=width

PSet (х, у), vbRed

Circle (х, у), r, QBColor(color)

End Sub

Данная процедура предназначена для рисования на форме точки красного цвета и окружности произвольного цвета с центром в данной точке (рис. 13.5). До начала рисования производится масштабирование окна формы и задается толщина линии. При вызове процедуры ей необходимо передать девять параметров.

Public Sub cmdRis_C1ick()

Call Окружность(-10, 10, 10, -10, 3, 0, 0, 5,15 * Rnd())