w IPrepare():
UIActionAdd(GRUPA_GL_KONF , 0, ACTT_GROUP or ACTSMENU_BOLD, 'Ustawienia');
UIActionAdd(GRUPA_GL_KONF, IMIA_LIST, ACTT_HWND, 'ListBox');

w ActionProc:
IMIA_LIST:
   begin
    if anBase.code = ACTN_CREATEWINDOW then
           begin
           InitCommonControls();
           an := sUIActionNotify_CreateWindowPtr(anBase);
           an^.w := 100;
           an^.h := 200;
           an^.hWnd := CreateWindowEx(WS_EX_CLIENTEDGE,'ListBox','',WS_TABSTOP or WS_CHILD or WS_VISIBLE or LBS_NOTIFY or   WS_VSCROLL ,an^.x, an^.y,an^.w, an^.h, an^.hwndparent, 0, 0, 0);
           Inc( an^.x, 200);
           SendMessage(an^.hwnd, WM_SETFONT, an^.font, 0);
            end;
     if anBase.code = ACTN_DESTROYWINDOW then
            begin
            DestroyWindow(an^.hwnd);
            end; end;
        end;