O script a seguir referencia um objeto hpXGridCalc e cria até 9 (nove) objetos do tipo hpLinkIcon, posicionando-os na grade definida em um objeto hpXGridCalc. Ao atingir o limite de 9 (nove) objetos, estes são apagados e a contagem é reiniciada.

Sub hpCommandButton1_OnEventClick()
  Set gridCalc = Screen.Item("hpXGridCalc1")
  With gridCalc
    'Define as coordenadas iniciais
    Xini = .X
    Yini = .Y
    'Apaga os objetos da grade
    'e reinicia a contagem de Index
    If .Index > (.Columns * .Rows) Then
      .Index = 1
      For Each obj In Screen
        If InStr(obj.Name,"hpLinkIconTestGridA") <> 0 Then
          Screen.DeleteObject(obj.Name)
        End If
      Next
    End If
    'Cria um objeto do tipo hpLinkIcon
    'já posicionado na grade
    Set elm = Screen.AddObject("hpLinkIcon", False, "hpLinkIconTestGridA")
    elm.X = Xini + .Xindex
    elm.Y = Yini + .Yindex
    elm.IconName = "hpIcon" & CStr(.Index)
    elm.Activate()
    elm.BringToFront()
    'Aponta Index para o próximo objeto a ser criado
    .Index = .Index + 1
  End With
End Sub