How to show all shell32.dll icons and numbers?

[youtuber]

How to show all shell32.dll icons and numbers And automatic gui and icon sizing?

https://prnt.sc/jcscd2

#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
$Size = 16
Dim $array[31507][31507]
$GuiIcon = GUICreate("Select icon", 1900, 1000, -1, -1, $WS_SIZEBOX + $WS_SYSMENU)
$IconButton = GUICtrlCreateButton("", 436, 858, 81, 41, $BS_ICON)
$validerbouton = GUICtrlCreateButton("Validate", 584, 859, 377, 41)
GUICtrlSetOnEvent(-1, "Validateicon")
For $y = 0 To 31506
    For $x = 0 To 31506
        $Icon = ($y * 30) + $x
        If $Icon > 63011 Then $Icon = -1
        $array[$x][$y] = GUICtrlCreateButton($Icon, ($x * $Size), ($y * $Size), $Size, $Size, $BS_ICON)
        GUICtrlSetOnEvent(-1, "clicicon")
        GUICtrlSetImage($array[$x][$y], "shell32.dll", $Icon)
    Next
Next
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUISetState(@SW_SHOW)

Func clicicon()
    Global $Icon = GUICtrlRead(@GUI_CtrlId)
    GUICtrlSetImage($IconButton, "shell32.dll", $Icon)
EndFunc   ;==>clicicon

Func Validateicon()
    MsgBox(0, "icon Number", "You have selected icon number : " & $Icon, 3)
EndFunc   ;==>Validateicon

Func _exit()
    Exit
EndFunc   ;==>_exit

While 1
    Sleep(100)
WEnd

 

Edited May 2, 2018 by youtuber

[TheXman]

There is a help file example that shows the shell32.dll icons.  It is "...\AutoIt3\Examples\GUI\Advanced\enumicons.au3"