ImGearPage igPage;
// Load an image into a ImGearPage object.
using (FileStream localFile = new FileStream(localFilePath, FileMode.Open))
    igPage = ImGearFileFormats.LoadPage(localFile, 0);
// Build and apply palette if image is indexed.
if (igPage.DIB.ColorSpace.Value == ImGearColorSpaceIDs.I)
{
    // Create a simple palette of red colors
    ImGearRGBQuad[] igRGBQuad = new ImGearRGBQuad[256];
    for (int i = 0; i < 256; ++i)
        igRGBQuad[i].Red = (byte)i;
    // Assign the new Palette
    igPage.DIB.Palette = igRGBQuad;
}
	 
	
		Dim igPage As ImGearPage
'Load an image into a ImGearPage object.
Dim localFile As FileStream = New FileStream(localFilePath, FileMode.Open)
Try
    igPage = ImGearFileFormats.LoadPage(localFile, 0)
Finally
    localFile.Close()
End Try
' Build and apply palette if image is indexed.
If (igPage.DIB.ColorSpace.Value = ImGearColorSpaceIDs.I) Then
    'Create a simple palette of red colors
    Dim igRGBQuad(256) As ImGearRGBQuad
    For i As Integer = 0 To 255
        igRGBQuad(i).Red = i
    Next
    'Assign the new Palette
    igPage.DIB.Palette = igRGBQuad
End If