SaveArray example for Visual Basic

   Dim i As Integer
   Dim RasterVar As New LEADRasterVariant
   Dim lSize As Long
   Dim RasterIO As New LEADRasterIO
   Set RasterVar = RasterIO.SaveArray(LEADRasterView1.Raster, FILE_BMP, 0, 2) 
   lSize = RasterIO.ArraySize(RasterVar) 
   Open "c:\temp\tmp2.bmp" For Binary Access Write As #1
      For i = 0 To lSize - 1
         Put #1, i + 1, RasterVar.ShortItemValue(i)
      Next i
   Close #1
   'get some info on the memory array
   RasterIO.GetArrayInfo LEADRasterView1.Raster, RasterVar, 1, lSize
   MsgBox "Format = " & CStr(RasterIO.InfoFormat)