LoadICCProfile Example for Visual Basic
Dim RasterIO As New LEADRasterIO
Dim pData As New LEADRasterVariant
Open "c:\MyICC.ICM" For Binary As #1
nRet = RasterIO.LoadICCProfile("c:\dst_rgb_image.tif", pData, 1)
For i = 0 To pData.ItemCount - 1
Put #1, , CByte(pData.ShortItemValue (i))
Next i
Set pData = Nothing
Close #1