(defun c:test ()
  (defun c:Test2_Form1_OnInitialize (/)
   (princ) 
)
  (dcl_project_load "D:/Test2" T)
  (dcl_form_show Test2_Form1)
  (princ)
)