'Global definition
Dim MyCircles as list
'initialisation
MyCircles.initialize
'... Your code...
Dim Circle1 As Circle
Circle1 = gmapExtra.AddCircle(gmap, co)
MyCircles.add(Curcle1)
' Later...
private sub Removeallcircles
for each c as circle in MyCircles
c.remove
next
end sub