(command "OPENDCL")

 (defun c:zzz ()

   (dcl_project_load "cb")
     
   (dcl_form_show cb_form1)
     
   (princ)  
 )