#include "minigui.ch" 
  
 Procedure MAIN 
 LOCAL nDesktopWidth  := GetDesktopWidth() 
 LOCAL nDesktopHeight := GetDesktopHeight() - GetTaskBarHeight() 
  
 SET MULTIPLE OFF WARNING 
  
 SET FONT TO "Tahoma", 9 
  
 DEFINE WINDOW Form_1 ; 
 	VIRTUAL WIDTH nDesktopWidth+10 VIRTUAL HEIGHT nDesktopHeight*1.5 ; 
 	TITLE "Icons from shell32.dll" ; 
 	MAIN ; 
 	ON INIT MyDrawIcons() 
  
 END WINDOW 
 Form_1.Sizable   := .F.  // NOSIZE 
 Form_1.MinButton := .F.  // NOMINIMIZE 
 Form_1.MaxButton := .F.  // NOMAXIMIZE 
 Form_1.Activate 
  
 Return 
  
 ///////////////////////////////////////////////////////////////////////////////// 
 Function MyDrawIcons() 
    LOCAL nJ := 0, nI, cStr, cObj, nRow := 10, nCol 
    LOCAL nWidth  := Form_1.Width 
    LOCAL nHeight := Form_1.Height 
    LOCAL cIcon := System.SystemFolder + "\shell32.dll" 
    LOCAL count := ExtractIcon( cIcon, -1, 0, 0, 0 ) 
  
    FOR nI := 0 TO count 
  
        nJ++ 
        nCol := 10 + 70*(nJ-1) 
        IF nCol > nWidth - 80 
           nRow += 70  
           nJ := 1 
           nCol := 10  
        ENDIF  
  
        cObj := "Btn_"+LTRIM(STR(nI)) 
        @ nRow, nCol  BUTTON &cObj    ; 
          OF Form_1                   ; 
          WIDTH 38  HEIGHT 38         ; 
          ICON cIcon                  ; 
          EXTRACT nI FLAT 
  
        cObj := "Lbl_"+LTRIM(STR(nI)) 
        cStr := "nI="+LTRIM(STR(nI)) 
        @ nRow + 40, nCol LABEL &cObj ; 
          OF Form_1 VALUE cStr        ; 
          WIDTH 60 HEIGHT 12          ; 
          TRANSPARENT FONTCOLOR BLUE   
    NEXT 
  
 Return NIL