Ver originalPrivate Sub MDIForm_Resize()On Error Resume NextIf Me.WindowState <> vbMinimized Then Me.WindowState = vbMaximizedEnd IfEnd Sub