; http://www.purebasic.com ; Author: Andre Beer / PureBasic Team ; Date: 11. May 2003 If OpenWindow(0,0,0,120,100,#PB_Window_SystemMenu,"ButtonImage") And CreateGadgetList(WindowID(0)) If LoadImage(0, "..\..\Graphics\Gfx\map.bmp") ; change 2nd parameter to the path/filename of your image ButtonImageGadget(0,10,10,100,83,UseImage(0)) EndIf Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow EndIf ; ExecutableFormat=Windows ; FirstLine=1 ; EnableXP ; EOF