+    Set Visible_State to False

+    

+    Integer iSize iWidth iHeight iColumns iRows iColumn iRow

+    Integer iElement iImageContainerSize iCurrentRows iCurrentColumns

+    Integer iTilesWidth iTilesHeight iTilesMargin iGap

+    Handle[] hoTilesCollection

+    Handle hWnd hoVoid

+    Boolean bUseBlackBackground bShowThumbnails bShowScrollBars

+

+   

+    // Destroy all 

+    Send DestroyAllChilds

+    

+    Get Size of oContainer3d1 to iSize

+    Get piTilesHeight to iTilesHeight

+    Get piTilesWidth  to iTilesWidth

+    Get piTilesMargin to iTilesMargin 

+

+    Move (Low (iSize)) to iWidth

+    Move (Hi (iSize)) to iHeight

+

+    Move ((iWidth - (iTilesMargin * 2)) / (iTilesWidth + iTilesMargin)) to iColumns

+    Move ((iHeight - (iTilesMargin * 2)) / (iTilesHeight + iTilesMargin)) to iRows

+

+    Set Visible_State to False 

+    For iRow from 1 to iRows

+        For iColumn from 1 to iColumns

+        

+            Move (SizeOfArray (hoTilesCollection)) to iElement

+            Get Create (RefClass (Button)) to hoTilesCollection[iElement]

+            Set Size of hoTilesCollection[iElement] to iTilesHeight iTilesWidth

+            Set Location of hoTilesCollection[iElement] to ((iRow - 1) * (iTilesHeight + iTilesMargin) + iTilesMargin + iGap) ((iColumn - 1) * (iTilesWidth + iTilesMargin) + iTilesMargin)

+            Set Label of hoTilesCollection[iElement] to ("L" + String(iElement))

+            Set psToolTip of hoTilesCollection[iElement] to ("Livro " + String(iElement))

+            

+        Loop

+    Loop

+    

+    Broadcast Send Page_Object 1

+    Set Visible_State to True 

+    

+    Show ("Created: " + String(iElement + 1))

+    Set phoTilesCollection to hoTilesCollection