FillText:
Arg window
/* Get item value  List Box */
App = VpGetItemValue(window,1004)
/* Get item value  List Box */
Key = VpGetItemValue(window,1006)
value = SysIni(INIFILE, App, Key)
/* Set item value  Multi-Line Entry Field */
CALL VpSetItemValue window,1010,value
Call FillHex window
Return