Dibujar círculos

[marcocho2005]

Otra forma de hacer eso también sería esta:

Private DrawNow As Integer
Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,
Y As Single)
If Button = 2 Then Form1.Cls
DrawNow = -1
CurrentX = X
CurrentY = Y
End Sub

Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single,
Y As Single)
If DrawNow Then
'Se puede jugar con estas dos sentencias
Line -(X, Y)
Circle (X, Y), 200
End If
End Sub

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

espero que te sirva