Alternate ShrinkFormUnload
Shrink Window on Unload
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source Code
Public Sub SqueezeWindow_FormUnload(p_FrmCurrent As Form, p_dblIncrement As Double) ' Comments : ' Parameters: p_FrmCurrent ' p_dblIncrement - ' Modified : ' ' ------------------------------- On Error GoTo PROC_ERR Do While (p_FrmCurrent.Height > 405 Or p_FrmCurrent.Width > 1680) p_FrmCurrent.Height = p_FrmCurrent.Height - p_dblIncrement p_FrmCurrent.Width = p_FrmCurrent.Width - p_dblIncrement DoEvents Loop DoEvents PROC_EXIT: p_FrmCurrent.Hide DoEvents Unload p_FrmCurrent Exit Sub PROC_ERR: MsgBox Err.Description Resume PROC_EXIT End Sub
Original Comments (3)
Recovered from Wayback Machine