Need help with lisp dcl slide

I want to change the image when it is active when going through another edit_box edit_box to show my other imagime as possible that ,I do not need edit_list

DCL

test_dcl : dialog { label = "Lee Mac Modified";
 spacer;
 :row {
:boxed_column{label="Setari Corpuri Baza Bucatarie";
: edit_box { //define edit box
		key = "eb1" ;				//give it a name
		allow_accept = false; 
		is_tab_stop = false; 
		is_enabled  = true;
		
label = "&Gaura din fata fund/mm" ;		//give it a label
		edit_width = 4 ;			//4 characters only
       }//edit_box			
: edit_box { //define edit box
		key = "eb2" ;				//give it a name
		
		
label = "&Gaura din spate fund/mm" ;		//give it a label
		edit_width = 4 ;			//4 characters only
       }// edit_box		
: edit_box { //define edit box
		key = "eb3" ;				//give it a name
		
label = "&Gaura din spate lateral/mm" ;		//give it a label
		edit_width = 4 ;			//4 characters only
       }// edit_box				
: edit_box { //define edit box
		key = "eb4" ;				//give it a name
		
label = "&Gaura din fata lateral/mm" ;		//give it a label
		edit_width = 4 ;			//4 characters only
       }// edit_box						
	}// end boxed_column

: boxed_column { label = "Image Slide";
     : image { key = "sld"; 
	height = 15; 
	fixed_height = true;
       width = 50; 
	fixed_width = true; 
	color = 0; 
	aspect_ratio = 1;
       is_enabled = false; 
	is_tab_stop = false;
             }
   }
}

 ok_cancel;
}

lisp

(defun c:test( / slide path dch lst )
 (setq path "c:\\acad\\")
 (defun slide ( key file )
   (if (setq file (findfile file))
     (progn
       (start_image key)
       (fill_image 0 0 (dimx_tile key) (dimy_tile key) 0)
       (slide_image 1 1 (- (dimx_tile key) 2) (- (dimy_tile key) 2) file)
       (end_image)
     )
   )
 )
 (cond
   ( (<= (setq dch (load_dialog "test_dcl.dcl")) 0)
     (princ "\n** DCL File not Found **")
  )
   ( (not (new_dialog "test_dcl" dch))
     (princ "\n** Dialog Could not be Loaded **")
   )
   (t
     (start_list "lst")
     (mapcar 'add_list (setq lst '("A" "B" "C" "D" )))
     (end_list)
     (slide "sld" (strcat path (nth (atoi (set_tile "lst" "0")) lst) ".sld"))
     (action_tile "lst" "(slide \"sld\" (strcat path (nth (atoi $value) lst) \".sld\"))") 
     (start_dialog)
     (unload_dialog dch)
   )
 )
 (princ)
)