FillKeys:
Arg window

/* Get item value  List Box */
App = VpGetItemValue(window,1004)

Call SysIni INIFILE, App, 'ALL:', 'Keys.'
Call RxSort 'Keys.', 'Asc'

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

Call RxListBoxFromStem window, 1006, 'Keys.'

/* Painting disable  List Box */
CALL VpItem window,1006,'ENABLEPAINT'


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

Return