Рисование окружностей с демонстрацией процесса

'Переменные уровня модуля
Dim X0 As Integer
Dim Y0 As Integer
 
Private Sub Form_Initialize()
Caption = "Графический редактор"
Icon = LoadPicture(App.Path & "\PEN01.ICO")  'задание значка формы
Top = (Screen.Height - Height) \ 2  'отображение формы
Left = (Screen.Width - Width) \ 2   'в центре экрана
DrawWidth = 1  'задание ширины линии
DrawStyle = 2  'задание стиля линии
End Sub
 
'Процедура загрузки и отображения формы на экране
Private Sub Form_Load()
Show
End Sub
 
'Процедура обработки события нажатия кнопки мыши
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Запоминается точка, где была нажата кнопка мыши
X0 = X
Y0 = Y
'Указатель мыши устанавливается как перекрестие
MousePointer = vbCrosshair
End Sub
 
'Процедура обработки события отпускания кнопки мыши
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Определяется радиус окружности
R = Sqr((X - X0) ^ 2 + (Y - Y0) ^ 2)
'Строится окружность
Circle (X0, Y0), R
'Указатель мыши устанавливается тот, который используется по умолчанию
MousePointer = vbDefault
End Sub