Public Sub SetSize( _
   ByVal NewSize As Long _
)