FeatherAlphaBlend example for Visual Basic

   LEAD2.CreateBitmap 800, 600, 24
   LEAD2.SetRgnRoundRect 50, 50, 500, 500, 150, 150, L_RGN_SET
   LEAD3.CreateFadedMask LEAD2.Bitmap, 60, 20, 3, 0, FADE_DUMPFILL + FADE_NOTRANSPARENCY, 255, RGB(0, 0, 255)
   LEAD2.Load "c:\temp\test.cmp", 0, 1, 1
   LEAD1.FeatherAlphaBlend 0, 0, LEAD3.BitmapWidth, LEAD3.BitmapHeight, LEAD2.Bitmap, 0, 0, LEAD3.Bitmap