LoadICCProfile example for Visual Basic

   Dim i As Integer
   Dim pData As Variant
   Dim nRet As Integer
   Open "c:\MyICC.ICM" For Binary As #1
   nRet = LEAD1.LoadICCProfile("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