dim frm as formfor each frm in forms
     if frm.name=youfrmname  then
         msgbox "load form"
     end if
next frmdim ctl as controlfor each ctl in controls
     if ctl.name=youctlname  then
         msgbox "load ctl"
     end if     
next ctl手写的,可能有错误