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