Effectively I missed something, this version works...
(defun c:go (/ tmp)
(command "OPENDCL")
(dcl_Project_Load "ToggleForm" T)
(setq tmp 1)
(while (> tmp 0)
(setq tmp (dcl_Form_Show "ToggleForm" (if (= tmp 1) "Form1" "Form2")))
)
(princ)
)
(defun c:ToggleForm_Form1_TextButton1_OnClicked (/)
(dcl_Form_Close ToggleForm_Form1 2)
)
(defun c:ToggleForm_Form2_TextButton1_OnClicked (/)
(dcl_Form_Close ToggleForm_Form2 1)
)
(defun c:ToggleForm_Form1_OnCancelClose (Reason /)
(dcl_Form_Close ToggleForm_Form1 0)
)
(defun c:ToggleForm_Form2_OnCancelClose (Reason /)
(dcl_Form_Close ToggleForm_Form2 0)
)