Add icons to menu

Dear all.

I want add ICONS to the menu. How to modify this code ?

Thanks for any help!

BTW .My Icons in a DLL file.

(defun create_klscl (/ f i)
 (if (not (menugroup "KLSCL")) 
   (progn
     (setq f (open "KLSCL.mnu" "W"))  
     (write-line "***MENUGROUP=KLSCL" f) 
     (write-line "" f)       
     (write-line "***POP1" f)         
     (write-line "" f)                  
     (write-line "[Text tools]" f) 
     (write-line " [--]" f) 
     (write-line " [Text Align  TA]^C^CTA" f) 
     (write-line " [--]" f) 
     (write-line " [Text Merge  TM]^C^CTM" f)
     (write-line " [->Modify          ]" f) 。
     (write-line " [Add Prefix  ADDP]^C^CADDP" f) 
     (write-line " [<-Add Suffix  ADDS]^C^CADDS" f) 
     (close f)    
     (command "menuload" "KLSCL.mnu") 
     (if (menugroup "KLSCL")
    ........
    ........
    ........