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