Public Class IccS15Fixed16ArrayTagType 
   Inherits IccTagTypeBase

Dim instance As IccS15Fixed16ArrayTagType

public class IccS15Fixed16ArrayTagType : IccTagTypeBase 

public ref class IccS15Fixed16ArrayTagType : public IccTagTypeBase 

Public Sub IccS15Fixed16ArrayTagTypeExample()
      ' load an Icc Profile
      Dim iccProfile As New IccProfileExtended(Path.Combine(LEAD_VARS.ImagesDir, "EmptyIcc.icc"))

      ' define the array of s15Fixed16Number, for chromaticAdaptationTag 
      ' there has to be 9 elements in the array
      Dim data() As Integer = {IccTools.FromDoubleTo2bFixed2bNumber(1.0), _
         IccTools.FromDoubleTo2bFixed2bNumber(2.0), _
         IccTools.FromDoubleTo2bFixed2bNumber(3.0), _
         IccTools.FromDoubleTo2bFixed2bNumber(4.0), _
         IccTools.FromDoubleTo2bFixed2bNumber(5.0), _
         IccTools.FromDoubleTo2bFixed2bNumber(6.0), _
         IccTools.FromDoubleTo2bFixed2bNumber(7.0), _
         IccTools.FromDoubleTo2bFixed2bNumber(8.0), _
         IccTools.FromDoubleTo2bFixed2bNumber(9.0)}

      ' define the tag type
      Dim s15Fixed16ArrayTagType As New IccS15Fixed16ArrayTagType(data)

      ' add the new tag to the ICC Profile
      iccProfile.AddTag(s15Fixed16ArrayTagType, IccTag.ChromaticAdaptationTag, IccTagTypeBase.S15Fixed16ArrayTypeSignature)

      ' generate the new profile id
      iccProfile.GenerateProfileId()

      ' update the icc array with the new changes
      iccProfile.UpdateDataArray()

      ' write the Icc Profile into a new file
      iccProfile.GenerateIccFile(Path.Combine(LEAD_VARS.ImagesDir, "IccS15Fixed16ArrayTagTypeVB.icc"))
   End Sub

Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class

public void IccS15Fixed16ArrayTagTypeExample()
   {
      // load an Icc Profile
      string fileName = Path.Combine(LEAD_VARS.ImagesDir, "EmptyIcc.icc");
      IccProfileExtended iccProfile = new IccProfileExtended(fileName);

      // define the array of s15Fixed16Number, for chromaticAdaptationTag 
      // there has to be 9 elements in the array
      int[] data = new int[9] {
         IccTools.FromDoubleTo2bFixed2bNumber(1.0),
         IccTools.FromDoubleTo2bFixed2bNumber(2.0),
         IccTools.FromDoubleTo2bFixed2bNumber(3.0),
         IccTools.FromDoubleTo2bFixed2bNumber(4.0),
         IccTools.FromDoubleTo2bFixed2bNumber(5.0),
         IccTools.FromDoubleTo2bFixed2bNumber(6.0),
         IccTools.FromDoubleTo2bFixed2bNumber(7.0),
         IccTools.FromDoubleTo2bFixed2bNumber(8.0),
         IccTools.FromDoubleTo2bFixed2bNumber(9.0)};

      // define the tag type
      IccS15Fixed16ArrayTagType s15Fixed16ArrayTagType = new IccS15Fixed16ArrayTagType(data);

      // add the new tag to the ICC Profile
      iccProfile.AddTag(s15Fixed16ArrayTagType, IccTag.ChromaticAdaptationTag, IccTagTypeBase.S15Fixed16ArrayTypeSignature);

      // generate the new profile id
      iccProfile.GenerateProfileId();

      // update the icc array with the new changes
      iccProfile.UpdateDataArray();

      // write the Icc Profile into a new file
      string IccfileName = Path.Combine(LEAD_VARS.ImagesDir, "IccS15Fixed16ArrayTagTypeCS.icc");
      iccProfile.GenerateIccFile(IccfileName);
   }

static class LEAD_VARS
{
   public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}