ResizeRgn example for Visual Basic

   LEAD1.RgnFrameType = RGNFRAME_ANIMATED
   LEAD1.SetRgnRect 40, 60, 280, 200, L_RGN_SET
   MsgBox "About to resize"
   LEAD1.ResizeRgn 20, RGN_CONTRACT, False