LoadArray2 example for Visual Basic

Private Sub LoadArray_Click()
   Dim buf(40000) As Byte
   Dim RasterIO As New LEADRasterIO
   
   Open "d:\temp\error.bmp" For Binary Access Read As #1
      Get #1, , buf
      RasterIO.LoadArray2 LEADRasterView1.Raster, _
                         buf, 0, 0, -1, _
                         UBound(buf) - LBound(buf) + 1
   Close #1
End Sub