'Declaration
Protected Overloads Overridable Sub SizeRegion( _
ByVal As Single, _
ByVal As Single, _
ByVal As Single, _
ByVal As Single _
)
'使用法
Dim instance As PSObject
Dim newWidth As Single
Dim newHeight As Single
Dim oldWidth As Single
Dim oldHeight As Single
instance.SizeRegion(newWidth, newHeight, oldWidth, oldHeight)