FeatherAlphaBlend example for Visual Basic

   Raster2.CreateBitmap 800, 600, 24
   Raster2.SetRgnRoundRect 50, 50, 500, 500, 150, 150, L_RGN_SET
   RasterProc.CreateFadedMask LEADRasterView2.Raster, Raster2, 60, 20, 3, 0, FADE_DUMPFILL + FADE_NOTRANSPARENCY, 255, RGB(0, 0, 255) 
   RasterIO.Load Raster2, "c:\temp\test.cmp", 0, 1, 1
   RasterProc.FeatherAlphaBlend LEADRasterView1.Raster, 0, 0, LEADRasterView2.Raster.BitmapWidth, LEADRasterView2.Raster.BitmapHeight, Raster2, 0, 0, LEADRasterView2.Raster