限定窗口大小范围--windows message subclassing

Imports System.Windows.Forms
Imports System.ComponentModel
Namespace vbCity
    Namespace FormClasses
    Public Class frmRestricted
        Inherits Form
'#Region " Iridium form properties code "
        Private mFormMinSize, mFormMaxSize As PointAPI
               Description( _
       "The Minimum height that the form can be sized to.")> _
        Public Property FormMinHeight() As Int32
        Get
       ' SCS - A return of zero indicates that it has not been
       ' set.
        Return mFormMinSize.y
        End Get
        Set(ByVal Value As Int32)
       CheckBounds(Value, False)
       mFormMinSize.y = Value
        End Set
        End Property ' FormMinHeight