I read tip number 489 on how to resize the form, and I have a few questions about it

Private Sub Form_Resize()
    Me.Height = Me.Width
End Sub