Так как это еще не реализовано в библиотеке, то вот код:
Code
#Include "window9.bi"
hMain = OpenWindow("Тест",300,300,645,270,WS_CAPTION Or WS_SYSMENU Or WS_VISIBLE)
If hMain = 0 Then End 1
Dim As HINSTANCE hWinInst = GetModuleHandle(0)
hndl_Icon = LoadIcon(hWinInst, MAKEINTRESOURCE(100)) 'ID иконки
If hndl_Icon Then SendMessage(hMain, WM_SETICON, ICON_BIG, hndl_Icon)
Do
Var ev=WaitEvent()
If ev=EventClose Then End 0
Loop
P.S.: почти во всех исполняемых файлах первая иконка имеет порядковый ID равным в пределах 100-103, соответственно, в ресурсах своего приложения также первую иконку нужно поставить с ID >=100
