Private Sub Form_Load()
w = Me.Width
h = Me.Height
End Sub
Private Sub Form_Resize()
If Me.Width > w And Me.Height >= h Then
Debug.Print "放大"
ElseIf Me.Width >= w And Me.Height > h Then
Debug.Print "放大"
ElseIf Me.Width < w And Me.Height <= h Then
Debug.Print "缩小"
ElseIf Me.Width <= w And Me.Height < h Then
Debug.Print "缩小"
End If
w = Me.Width
h = Me.Height
End Sub