Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, _ ByVal wParam As Long, ByVal lParam As Long) As Long Dim MinMax As MINMAXINFO 'Check for request for min/max window sizes. If uMsg = WM_GETMINMAXINFO Then 'Retrieve default MinMax settings CopyMemoryToMinMaxInfo MinMax, lParam, Len(MinMax) 'Specify new minimum size for window. MinMax.ptMinTrackSize.x = 200 MinMax.ptMinTrackSize.y = 200 'Specify new maximum size for window. MinMax.ptMaxTrackSize.x = 500 MinMax.ptMaxTrackSize.y = 500 'Copy local structure back. CopyMemoryFromMinMaxInfo lParam, MinMax, Len(MinMax) WindowProc = DefWindowProc(hw, uMsg, wParam, lParam) Else WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, _ wParam, lParam) End If