XProfan

(w) Frank Abbing
Declare newlist&,largeicon&,smallicon&,tbar&
Def ExtractIconEx(5) !"shell32","ExtractIconEx"
Cls
newlist&=Create("ImageList", 32, 32)
ExtractIconEx("setupapi.dll",1,Addr(LargeIcon&),Addr(SmallIcon&),1)
ImageList("AddIcon", newlist&, largeicon&)
ExtractIconEx("inetcpl.cpl",8,Addr(LargeIcon&),Addr(SmallIcon&),1)
ImageList("AddIcon", newlist&, largeicon&)
ExtractIconEx("main.cpl",11,Addr(LargeIcon&),Addr(SmallIcon&),1)
ImageList("AddIcon", newlist&, largeicon&)
ExtractIconEx("inetcpl.cpl",22,Addr(LargeIcon&),Addr(SmallIcon&),1)
ImageList("AddIcon", newlist&, largeicon&)
ExtractIconEx("inetcpl.cpl",21,Addr(LargeIcon&),Addr(SmallIcon&),1)
ImageList("AddIcon", newlist&, largeicon&)
tbar&=Create("Toolbar",%hwnd,newlist&,0,0,3000,1)
Toolbar("AddTextButton",tbar&,0,4000,"   Icon 1   ","")
Toolbar("AddTextButton",tbar&,1,4001,"   Icon 2   ","")
Toolbar("AddTextButton",tbar&,2,4002,"   Icon 3   ","")
Toolbar("AddTextButton",tbar&,4,3000,"   Icon 4   ","")
Toolbar("AddTextButton",tbar&,3,3001,"   Icon 5   ","")

While 1

    WaitInput
    Case %key=2:Break

Endwhile

End