Conversion Given an ICM Profile (Visual Basic)

1.	Define the following global variables:

Dim ClrHandle As Long 
Dim cnvParam As CONVERSION_PARAMS 
Dim wtPoint As WHITEPOINT 'this needs to be defined in VB, because its member in CONVERSION_PARAMS can't be accessed since it is a pointer and not a structure 
Dim RGBColor(3) As Byte 
Dim ColorSpace(4) As Byte

2.	Set the conversion options by filling a CONVERSION_PARAMS structure:

wtPoint.nWhitePoint = CIELAB_D50 
wtPoint.xWhite = 0 
wtPoint.yWhite = 0 
cnvParam.uStructSize = Len(cnvParam) 
cnvParam.nQuantization = 8 
cnvParam.nMethod = USE_CUSTOM_ICC 
cnvParam.nActiveMethod = USE_CUSTOM_ICC 
cnvParam.pCmykParams = 0 
cnvParam.pLabParams = 0 
cnvParam.pYuvParams = 0 
cnvParam.sDstInputTable(0) = 0 
cnvParam.pWpoint = VarPtr(wtPoint) 
cnvParam.pMemInputProfile = 0 
cnvParam.pMemOutputProfile = 0 
Dim str1 As String 
str1 = "C:\\MyRGBProfile.ICM" 
Dim i As Integer 
For i = 0 To Len(str1) - 1 
   cnvParam.sInputProfile(i) = Asc(Right(str1, Len(str1) - i)) 
Next i 
str1 = "C:\\MyRGBProfile.ICM" 
For i = 0 To Len(str1) - 1 
   cnvParam.sOutputProfile(i) = Asc(Right(str1, Len(str1) - i)) 
Next i

3.	Initialize the color conversion handle with L_ClrInit ():

L_ClrInit ClrHandle, CCS_CMYK, CCS_RGB, cnvParam

4.	Now, do the conversion:

ColorSpace(0) = 100 
ColorSpace(1) = 100 
ColorSpace(2) = 100 
ColorSpace(3) = 100 
L_ClrConvert ClrHandle, ColorSpace(0), RGBColor(0), 1, 1, 0, 0

5.	At the end, free the color conversion handle:

L_ClrFree ClrHandle