SaveICCProfile2 Example for Visual Basic

   Dim RasterIO As New LEADRasterIO
   Dim pData
   Dim nRet As Integer   
   
   nRet = RasterIO.LoadICCProfile2 ("c:\dst_rgb_image.tif", pData, 1) 
   nRet = RasterIO.SaveICCProfile2 ("c:\image.tif", pData, 1)