ResizeRgn example for Visual Basic

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