XProfan

DEF ExtractIcon(3) !SHELL32,ExtractIconA
DEF LoadImage(6) ! USER32,LoadImageA
DEF &BM_SETIMAGE $0F7
DEF &IMAGE_ICON $01
DECLARE Program1$
DECLARE slot%,row% New
DECLARE hint%,b01%
DECLARE txt1$ New
...........................................................................................................................................................
programm1$=C:\programs\internet Explorer\iexplore.exe  here whom way equal
txt1$ = SUBSTR$(Program1$, -1, \) New
spalte%=100:row%=100 New
..........................................................................................................................................................

Proc CreateIconButton

    Parameters Exe$,Index&,Window&,X&,Y&,W&,H&,ID&
    Declare Button&,Icon&
    Button& = Control(Button,,$56000040,X&,Y&,W&,H&,Window&,ID&,%Hinstance)
    Icon& = ExtractIcon(%Hinstance,Addr(Exe$),Index&)
    Sendmessage(Button&,&BM_SETIMAGE,&IMAGE_ICON,Icon&)
    Return Button&

ENDPROC

CLS
CreateIconButton Program1$,0,%hwnd,slot%,row%,34,34,001
b01% = &(0)
tip%=CREATE(TOOLTIP,%HWnd,b01%,Program1$)
DrawText (slot%+38),(row%+10),< +txt1$ New
WAITINPUT
END