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

Sub hpCommandButton1_OnEventClick()
  Set Container = Screen.Item("hpXContainer1")
  With Container
    'Apaga os objetos da grade
    'e reinicia a contagem da propriedade Index
    If .Index > (.Columns * .Rows) Then .Reset = True
    'Cria um objeto do tipo hpLinkIcon
    'já posicionado na grade
    .ClassName = "hpLinkIcon" 'Classe do objeto criado
    .CreateNewObject = True 'Cria o objeto
  End With
End Sub