Объект.InCircle ( Center As Point, Radius As Double ) As ShapeRange
Параметры Center и Radius задают круг. Метод возвращает только те геометрические объекты, которые целиком находятся внутри круга.