Public Class IccU16Fixed16ArrayTagType 
   Inherits IccTagTypeBase

Dim instance As IccU16Fixed16ArrayTagType

public class IccU16Fixed16ArrayTagType : IccTagTypeBase 

public ref class IccU16Fixed16ArrayTagType : public IccTagTypeBase 

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

      ' define the array of s15Fixed16Number
      Dim data() As Integer = {IccTools.FromDoubleTo2bFixed2bNumber(1.0)}

      ' define the tag type
      Dim u16Fixed16ArrayTagType As New IccU16Fixed16ArrayTagType(data)

      ' add the new tag to the ICC Profile
      iccProfile.AddTag(u16Fixed16ArrayTagType, &H54616741, IccTagTypeBase.U16Fixed16ArrayTypeSignature)

      ' 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, "IccU16Fixed16ArrayTagTypeVB.icc"))
   End Sub

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

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

      // define the array of s15Fixed16Number
      int[] data = new int[1] { IccTools.FromDoubleTo2bFixed2bNumber(1.0) };

      // define the tag type
      IccU16Fixed16ArrayTagType u16Fixed16ArrayTagType = new IccU16Fixed16ArrayTagType(data);

      // add the new tag to the ICC Profile
      iccProfile.AddTag(u16Fixed16ArrayTagType, 0x54616741, IccTagTypeBase.U16Fixed16ArrayTypeSignature);

      // 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, "IccU16Fixed16ArrayTagTypeCS.icc");
      iccProfile.GenerateIccFile(IccfileName);
   }

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