LoadICCProfile2 Example for Visual Basic

   Dim RasterIO As New LEADRasterIO
   Dim pData
   
   Open "c:\MyICC.ICM" For Binary As #1
   nRet = RasterIO.LoadICCProfile2 ("c:\dst_rgb_image.tif", pData, 1) 
   
   For i = 0 To UBound(pData) - LBound(pData) - 1
     Put #1, , CByte(pData(i)) 
   Next i
   Close #1