** END HEADER -- do not remove this line
//
// Generated on 2021-03-08
//
parameter bModal
local f
f = new neuForm()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class neuForm of FORM
   with (this)
      canClose = class::FORM_CANCLOSE
      onOpen = class::FORM_ONOPEN
      metric = 6	// Pixels
      height = 250.0
      left = 100.0
      top = 80.0
      width = 600.0
      text = "Testform"
   endwith

    function form_onOpen
        this.sub_neu = new sub_neuForm(this)
         form.sub_neu.open()
        return
       
   function form_canClose
        // do my things
        form.close()
        return

endclass

class sub_neuForm( oParent, cTitle ) of SUBFORM( oParent, cTitle )
   with (this)
      height = 7.2273
      left = 0.4286
      top = 0.5455
      width = 50.0
      text = ""
      mdi = false
      sysMenu = false
   endwith
endclass