; German forum: http://robsite.de/php/pureboard/viewtopic.php?t=1961&highlight= ; Author: Franky ; Date: 10. August 2003 ; Icon with file name "Player.ico" is needed If OpenWindow(1,100,100,100,100,#pb_window_systemmenu,"Icontest") CreateGadgetList(WindowID()) ButtonGadget(0,0,0,100,100,"Change Icon") If LoadImage(1,"Player.Ico") Repeat event=WaitWindowEvent() If event=#pb_eventgadget Select EventGadgetID() Case 0 sendmessage_(WindowID(),#wm_seticon,#FALSE,UseImage(1)) EndSelect EndIf Until event=#wm_close EndIf EndIf ; ExecutableFormat=Windows ; FirstLine=1 ; EOF