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