FillApps:
Arg window

Call SysIni INIFILE, 'ALL:', 'Apps.'
Call RxSort 'Apps.', 'Asc'

/* Painting disable  List Box */
CALL VpItem window,1004,'DISABLEPAINT'

Call RxListBoxFromStem window, 1004, 'Apps.'

/* Painting enable  List Box */
CALL VpItem window,1004,'ENABLEPAINT'

/* Select item  List Box */
CALL VpSelect window,1004,1,1

Return