窗体控件大小随窗体大小变化而变化[12]

public sub saveformposition(pfrmin as form)

       dim i as long

              if maxform > 0 then

                            for i = 0 to (maxform - 1)

                                          if formrecord(i).name = pfrmin.name then

                                                        formrecord(i).top = pfrmin.top

                                                                      formrecord(i).left = pfrmin.left

                                                                                    formrecord(i).height = pfrmin.height

                                                                                                  formrecord(i).width = pfrmin.width
                                                                                                         exit sub
                                                                                                  end if

                                                                                    next i

                                                                             addform (pfrmin)