SystemPath.s=Space(255)  
Result=GetSystemDirectory_(@SystemPath,255)  

OpenWindow(0,0,0,620,130,"Icon-Test",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)  

For a=0 To 11
  ButtonImageGadget(a,10+a*50,10,50,50,ExtractIcon_(0,SystemPath+"\SetupAPI.dll",a))  
For b=24 To 35  
  ButtonImageGadget(b,10+b*50-1200,65,50,50,ExtractIcon_(77,SystemPath+"\SetupAPI.dll",b))
  Next
Next
Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow  

End