Filling ImageList Editor Window with a List of .ico files

[ssimop]

I am in need to fill the ImageList Editor Window with a List of .ico files to build a rather long image list. I have tried applying various approaches, but the common stiffness was "hung window". I attach herewith one of these approaches, more or less working, but it proved to be too slow. Any idea or recommendation will be appreciated. Many thanks in advance.

Function tempf05

Code:

Copy      Help

;www.quickmacros.com/forum/viewtopic.php?p=19931
opt hungwindow 3
str s="C:\Documents and Settings\icons\Ico\help1.ICO"
s.setclip
sub.IL_Paste
s="C:\Documents and Settings\icons\Ico\help2.ICO"
s.setclip
sub.IL_Paste

#sub IL_Paste
opt hungwindow 3
int w=win("ImageList Editor" "#32770")
Acc a.Find(w "LIST" "" "class=SysListView32[]id=3" 0x1004)
accMouse(a)
0.25
key Cv