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

       redim preserve formrecord(maxform + 1)

              formrecord(maxform).name = pfrmin.name

                            formrecord(maxform).top = pfrmin.top

                                          formrecord(maxform).left = pfrmin.left

                                                        formrecord(maxform).height = pfrmin.height

                                                                      formrecord(maxform).width = pfrmin.width
                                                                                    formrecord(maxform).scaleheight = pfrmin.scaleheight

                                                                                                  formrecord(maxform).scalewidth = pfrmin.scalewidth
                                                                                                         addform = maxform
                                                                                                         maxform = maxform + 1

                                                                                                                for each formcontrol in pfrmin