XProfan

'Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) into Babyklappe on XProfan.com stored:
'Window-Icon replace (2)
DEF SetClassLong(3) !"user32","SetClassLongA"
DEF ExtractIcon(3) !"shell32","ExtractIconA"
Declare base$,icon&
base$="ICON2.ICO"
icon&= ExtractIcon(0,Addr(Base$),0)
Cls
SetClassLong(%hwnd,-14,Icon&)
WaitInput
end