Dim ow As Single, oh As SinglePrivate Sub Form_Load()ow = Widthoh = HeightEnd SubPrivate Sub Form_Resize()If WindowState = 0 Then Width = ow Height = ohEnd IfEnd Sub