Hazlo asi:
- Code: Select all Expand view
- #include "FiveWin.ch"
function Main()
local oWnd, oIcon
DEFINE ICON oIcon FILENAME "..\icons\book.ico"
DEFINE WINDOW oWnd
oWnd:SetIcon( oIcon )
ACTIVATE WINDOW oWnd
DEFINE ICON oIcon FILENAME "..\icons\blue.ico"
DEFINE WINDOW oWnd
oWnd:SetIcon( oIcon )
ACTIVATE WINDOW oWnd
return nil
Aqui funciona bien así