SaveICCProfile example for Visual Basic

   Dim RasterIO As New LEADRasterIO
   Dim pData As New LEADRasterVariant
   Dim nRet As Integer

   nRet = RasterIO.LoadICCProfile ("c:\dst_rgb_image.tif", pData, 1) 
   nRet = RasterIO.SaveICCProfile ("c:\image.tif", pData, 1) 
   
   Set pData = Nothing