tegne cirkel

Tjah du bruger vel Circle
f.eks ME.circle (x,y), radius
x og  y kan du evt. få fra formens mousedown

Skal disse cirkler være noget i stil med det her

Private Sub picCanvas_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        picCanvas.Line (X, Y)-(X, Y)
    End If
End Sub
Private Sub picCanvas_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        picCanvas.Line -(X, Y)
    End If

picCanvas er den picturebox du tegner i