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())