Create("Icon",N,S,X1,Y1)

Create("Icon",N,[H,S],X1,Y1)

 ImageList("DeleteIcon", H, N)
 ImageList("ReplaceIcon", H,N,neuesIcohandle)
 ImageList("Insert", H, N, POS)
 

 $H windows.ph
 Declare Handle ico, st, lb
 Declare Long ende, y
 
 ende = 0
 y = 1
 Window 600, 400
 st = Create("Static", %HWnd, 10, 10, 200, 150)
 lb = Create("Listbox", %HWnd,0, 250, 10, 150, 100)
 
 Create("Icon", st, "A", 10, 10, 1)
 Create("Icon", st, "A", 100, 10)
 
 WhileLoop 1, 20
    Create("Icon", lb, "GESICHT", 1, y, 16, 16)
    AddString(lb, "     " + Str$(&LOOP) + ".Eintrag !")
    Inc y, 16
 EndWhile
 
 WhileNot ende
   WaitInput
   If Clicked(lb)
     ~InvalidateRect(lb, 0, 0)
     ~UpdateWindow(lb)
   EndIf
   Case %Key = 2 : ende = 1
 EndWhile
 End