Круг

Есть стандартный копонент называется Shape. Настрой свойства Shape=3-Circle, FillStyle=0-Solid.:rolleyes:

Paint никогда круги не рисовал :) Paint закрашивает область.
В ТБ есть такая команда circle, format: circle (x,y),radius,color,"элипсы и дуги"

[QUOTE=PAVEL BASIC]Есть стандартный копонент называется Shape. Настрой свойства Shape=3-Circle, FillStyle=0-Solid.:rolleyes:[/QUOTE]
Созавать программно 1188 (ровно :) ) объектов? Нет уж, увольте.

[QUOTE=KAN]Paint никогда круги не рисовал Paint закрашивает область.
В ТБ есть такая команда circle, format: circle (x,y),radius,color,"элипсы и дуги"[/QUOTE]
Никто не говорил, что Paint рисует круги :) Технология была такая: рисуем круг (при помощи Circle), а потом заливаем круг при помощи Paint. Но в VB у Paint'а другое значение, вот я и спрашиваю как можно нарисовать полный круг. Не каждый пиксель ведь прописывать :)

Вы можете нарисовать один объект круг используя Shape. А потом размножить его при помощи этого кода:

f = 1
Do Until f = 1198
Load Shape1(f)
Shape1(f).Top = Shape1(f - 1).Top + Shape1(f).Width
Shape1(f).Visible = True
f = f + 1
Loop

Но если вам так необходима функция для рисования воспользуйся АРI.
Function Ellipse Lib "gdi32" Alias "Ellipse" (ByVal hdc As Long, ByVal X1 As Long, _
ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Hdc - Идентификатор контекста устройства. Обычно значения этого параметра определяется свойством Hdc элемента управления (например Picture1.hdc). Часто используется в графических функциях.
Рисует эллипс, вписанный в прямоугольник, заданный координатами точек (X1,Y1) и (X2,Y2), которые являются параметрами функции.:)

Спасибо :) А ответьте ещё на один глупый вопрос, может ли массив объектов быть многомерным? :) Т.е. cmdButton(1,5)

Если я правилильно понял вопрос, то не может.:confused: