<SerializableAttribute()>
Public Structure RasterColor 
   Inherits System.ValueType

Dim instance As RasterColor

[SerializableAttribute()]
public struct RasterColor : System.ValueType 

[SerializableAttribute()]
public value class RasterColor : public System.ValueType 

Public Sub Example()
   ' Create a RasterColor
   Dim clr As New RasterColor(128, 24, 87, 134)

   ' Make sure the color is correct
   Debug.Assert(clr.A = 128)
   Debug.Assert(clr.R = 24)
   Debug.Assert(clr.G = 87)
   Debug.Assert(clr.B = 134)

   ' Show its value
   Console.WriteLine(clr)

   ' Show the A, R, G and B values
   Console.WriteLine("Alpha value: " + clr.A.ToString())
   Console.WriteLine("Red value: " + clr.R.ToString())
   Console.WriteLine("Green value: " + clr.G.ToString())
   Console.WriteLine("Blue value: " + clr.B.ToString())
End Sub

public void Example()
{
   // Create a RasterColor
   RasterColor clr = new RasterColor(128, 24, 87, 134);

   // Make sure the color is correct
   Debug.Assert(clr.A == 128);
   Debug.Assert(clr.R == 24);
   Debug.Assert(clr.G == 87);
   Debug.Assert(clr.B == 134);

   // Show its value
   Console.WriteLine(clr);

   // Show the A, R, G and B values
   Console.WriteLine("Alpha value: " + clr.A);
   Console.WriteLine("Red value: " + clr.R);
   Console.WriteLine("Green value: " + clr.G);
   Console.WriteLine("Blue value: " + clr.B);
}

[TestMethod]
public void Example()
{
   Random rand = new Random();
   // Create a random .NET color
   Color clr1 = Color.FromArgb((byte)rand.Next(256), (byte)rand.Next(256), (byte)rand.Next(256), (byte)rand.Next(256));

   // Convert this color to a LEADTOOLS color
   RasterColor clr2 = RasterColorConverter.FromColor(clr1);

   // Make sure both colors are equal
   Debug.Assert(clr1.A == clr2.A);
   Debug.Assert(clr1.R == clr2.R);
   Debug.Assert(clr1.G == clr2.G);
   Debug.Assert(clr1.B == clr2.B);

   // Convert the LEADTOOLS color back to .NET
   clr1 = RasterColorConverter.ToColor(clr2);

   // Make sure both colors are equal
   Debug.Assert(clr1.A == clr2.A);
   Debug.Assert(clr1.R == clr2.R);
   Debug.Assert(clr1.G == clr2.G);
   Debug.Assert(clr1.B == clr2.B);
}

<TestMethod> _
Public Sub Example()
   Dim rand As Random = New Random()
   ' Create a random .NET color
   Dim clr1 As Color = Color.FromArgb(CByte(rand.Next(256)), CByte(rand.Next(256)), CByte(rand.Next(256)), CByte(rand.Next(256)))

   ' Convert this color to a LEADTOOLS color
   Dim clr2 As RasterColor = RasterColorConverter.FromColor(clr1)

   ' Make sure both colors are equal
   Debug.Assert(clr1.A = clr2.A)
   Debug.Assert(clr1.R = clr2.R)
   Debug.Assert(clr1.G = clr2.G)
   Debug.Assert(clr1.B = clr2.B)

   ' Convert the LEADTOOLS color back to .NET
   clr1 = RasterColorConverter.ToColor(clr2)

   ' Make sure both colors are equal
   Debug.Assert(clr1.A = clr2.A)
   Debug.Assert(clr1.R = clr2.R)
   Debug.Assert(clr1.G = clr2.G)
   Debug.Assert(clr1.B = clr2.B)
End Sub