Save example for Visual Basic

This example saves the image as a BMP file, loads the new file, and redisplays the bitmap.

Dim RasterIO As New LEADRasterIO
Screen.MousePointer = 11 'Hourglass
RasterIO.Save LEADRasterView1.Raster, "d:\temp\tmp.bmp", _
              FILE_BMP, 8, 1, SAVE_OVERWRITE
RasterIO.Load LEADRasterView1.Raster, "d:\temp\tmp.bmp", 0, 0, 1
LEADRasterView1.ForceRepaint
Screen.MousePointer = 0 ' default