/* Get image attributes  Image Editor */
rc=VpImgEdt(ParentWindowID, 'IMAGE', 'GETBMPATTRIBUTES')
PARSE VAR rc x y numcolors

/* Set item value  Spin Button */
CALL VpSetItemValue AttribsWindowID,1004,x


/* Set item value  Spin Button */
CALL VpSetItemValue AttribsWindowID,1005,y
if numcolors==2 then
   /* Check the item  ~1 Radio Button */
   CALL VpSelect AttribsWindowID,1000,1
else
if numcolors==16 then
   /* Check the item  ~4 Radio Button */
   CALL VpSelect AttribsWindowID,1001,1
else
   /* Check the item  ~8 Radio Button */
   CALL VpSelect AttribsWindowID,1006,1
