Dibujar círculos

[MaxExtreme]

Puedes empezar entendiendo esto:

Código:

Option Explicit

Dim DrawNow As Boolean
Dim InicioX As Single
Dim InicioY As Single

Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DrawNow = True
    InicioX = X
    InicioY = Y
End Sub

Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If DrawNow = True Then
        Form1.Cls
        If X >= 0 Then Circle (InicioX, InicioY), X
    End If
End Sub

Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DrawNow = False
End Sub