그룹으로 잡은 원들을 scale 하고 싶은데 도와주세요ㅠ

Private Sub CommandButton2_Click()
    Dim groupObj As AcadGroup
    Set groupObj = ThisDrawing.Groups.Add(“TEST_GROUP”)
   
    ReDim appendObjs(0 To 3) As AcadEntity
   
    Dim CircleObject As AcadCircle
    Dim LineObject As AcadLine
    Dim center(0 To 2) As Double, radius As Double
   
    Dim circleObjScale As AcadCircle
    Dim scalefactor As Double
    scalefactor = 0.8

   
   
    center(0) = 1: center(1) = 1: center(2) = 0
    radius = 0.75
    Set CircleObject = ThisDrawing.ModelSpace.AddCircle(center, radius)
    Set appendObjs(0) = ThisDrawing.ModelSpace.AddCircle(center, radius)
   
   
    center(0) = 3: center(1) = 3: center(2) = 0
    radius = 0.75
    Set CircleObject = ThisDrawing.ModelSpace.AddCircle(center, radius)
    Set appendObjs(1) = CircleObject.Copy
   
    center(0) = 5: center(1) = 5: center(2) = 0
    radius = 0.75
    Set CircleObject = ThisDrawing.ModelSpace.AddCircle(center, radius)
    Set appendObjs(2) = CircleObject.Copy
   
   
    center(0) = 7: center(1) = 7: center(2) = 0
    radius = 0.75
    Set CircleObject = ThisDrawing.ModelSpace.AddCircle(center, radius)
    Set appendObjs(3) = CircleObject.Copy
   
    groupObj.AppendItems appendObjs
   
   
    ‘Set circleObjScale = groupObj

    Dim basePoint(0 To 2) As Double

    basePoint(0) = 1: basePoint(1) = -20: basePoint(2) = 0

    groupObj.ScaleEntity basePoint, scalefactor
   
   
End Sub

원들을 생성하고 생성된 원들을 그룹화 시켰습니다.

그룹화된 상태에서 scale 하고 싶은데 안되네요 ㅠ

groupObj.ScaleEntity basePoint, scalefactor  이곳에서 groupObj가 맞지 않는 형식이라서 오류나는건
알겠는데 어떻게 바꿔어야 할지 모르겟네요

ps. 원 하나하나 scale을 하면 중심좌표에서 원지름만 바꿔서
      그룹으로 잡아서 해주고 싶습니다.