vb最大化.doc

下面的代码可以实现，vb窗口最大化的时候，里面的控件一起变化 Option Explicit Private InitWidth As Long ' Form 的原始大小 Private InitHeight As Long Private Sub Form_Load() InitWidth = ScaleWidth InitHeight = ScaleHeight Dim Ctl As Control ' 记录每个 Control 的原始位置、大小、字型大小, 放在 Tag 属性中 On Error Resume Next '确保left, top, width, height