<CLSCompliantAttribute(False)>
Public Property B As UShort

Dim instance As RasterColor16
Dim value As UShort
 
instance.B = value
 
value = instance.B

[CLSCompliantAttribute(false)]
public ushort B {get; set;}

[CLSCompliantAttribute(false)]
public:
property ushort B {
   ushort get();
   void set (    ushort value);
}

Public Sub RasterColor16ComponentsExample()
   ' This C# example shows how to create a normal grayscale LUT.
   Dim lut As RasterColor16() = New RasterColor16(1023) {}
   Dim color As RasterColor16 = New RasterColor16(0, 0, 0)
   For i As UShort = 0 To 1023
      Dim gray As Integer = CInt(i * 65535 / 1023)
      color.R = CUShort(gray)
      color.G = CUShort(gray)
      color.B = CUShort(gray)
      lut(i) = color
   Next i
End Sub

public void RasterColor16ComponentsExample()
{
   // This C# example shows how to create a normal grayscale LUT.
   RasterColor16[] lut = new RasterColor16[1024];
   RasterColor16 color = new RasterColor16(0, 0, 0);
   for(ushort i = 0; i < 1024; i++)
   {
       int gray = i * 65535 / 1023;
       color.R = (ushort)gray;
       color.G = (ushort)gray;
       color.B = (ushort)gray;
       lut[i] = color;
   }
}

[TestMethod]
public void RasterColor16ComponentsExample()
{
   // This C# example shows how to create a normal grayscale LUT.
   RasterColor16[] lut = new RasterColor16[1024];
   RasterColor16 color = new RasterColor16(0, 0, 0);
   for(ushort i = 0; i < 1024; i++)
   {
       int gray = i * 65535 / 1023;
       color.R = (ushort)gray;
       color.G = (ushort)gray;
       color.B = (ushort)gray;
       lut[i] = color;
   }
}

<TestMethod> _
Public Sub RasterColor16ComponentsExample()
   ' This C# example shows how to create a normal grayscale LUT.
   Dim lut As RasterColor16() = New RasterColor16(1023){}
   Dim color As RasterColor16 = New RasterColor16(0, 0, 0)
   For i As UShort = 0 To 1023
       Dim gray As Integer = i * 65535 / 1023
       color.R = CUShort(gray)
       color.G = CUShort(gray)
       color.B = CUShort(gray)
       lut(i) = color
   Next i
End Sub