h1=uicontrol(gcf,'Style','listbox','String','red|blue|green|yellow|white',...
    'Position',[100,100,100,80],'Callback',...
    ['cbcol=[''r'',''b'',''g'',''y'',''w''];',...
    'set(gcf,''color'',cbcol(get(h1,''Value'')))']);