_Screen.AddObject("ResizeContainer", "ResizeContainer") _Screen.ResizeContainer.Visible = .T. DEFINE CLASS ResizeContainer AS Container oldX = 0 oldY = 0 Resizing = .F. PROCEDURE MouseDown LPARAMETERS nButton, nShift, nXCoord, nYCoord This.oldX = nXCoord This.oldY = nYCoord This.Resizing = .T. ENDPROC PROCEDURE MouseMove LPARAMETERS nButton, nShift, nXCoord, nYCoord IF NOT This.Resizing THEN RETURN ENDIF LOCAL nWidth, nHeight nWidth = This.Width + nXCoord - This.oldX nHeight = This.Height + nYCoord - This.oldY IF nWidth > 0 AND nHeight > 0 THEN This.Move(This.Left, This.Top, nWidth, nHeight) ENDIF This.oldX = nXCoord This.oldY = nYCoord ENDPROC PROCEDURE MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord This.Resizing = .F. ENDDEFINE