Проект «Движение круга».

1. Разместить на форме графическое поле picAnim, в котором будет производится движение круга. 2. Поместить на форму кнопку cmdStart и создать событийную процедуру, реализующую анимацию: Private Sub cmdStart_Click() Dim intX As Integer, lngI As Long ‘Масштаб picAnim.Scale (-10,10)-(10,-10) ‘Анимация For intX= -10 To 10 ‘Рисование picAnim.FillColor=vbBlue picAnim.Circle(intX,0),1,vbBlue ‘Задержка стирания For lngI=1 To 10000000 Next lngI ‘Стирание picAnim.FillColor=vbWhite picAnim.Circle(intX,0),1,vbWhite next intX