PaintScaling (ILEADRasterImgList) example for Visual Basic

   'toggle through the paint scale modes
   Select Case LEADImgList1.PaintScaling
      Case IMGLST_PAINTSCALING_NORMAL
         LEADImgList1.PaintScaling = IMGLST_PAINTSCALING_RESAMPLE
         Text1.Text = "Resample"
      Case IMGLST_PAINTSCALING_RESAMPLE
         LEADImgList1.PaintScaling = IMGLST_PAINTSCALING_BICUBIC
         Text1.Text = "Bicubic"
      Case IMGLST_PAINTSCALING_BICUBIC
         LEADImgList1.PaintScaling = IMGLST_PAINTSCALING_NORMAL
         Text1.Text = "Normal"
   End Select
   'force redraw
   LEADImgList1.Visible = False
   LEADImgList1.Visible = True