Public Structure ANSIFONT_CHUNK
    Public AFNT As AFNT_CHUNK
    Public CHAR_CHUNKS  As CHAR_CHUNK()
End Structure

Public Structure AFNT_CHUNK
    Public MAIN  As AFNT_MAIN
    Public CHARS  As AFNT_CHAR()
End Structure

Public Structure AFNT_MAIN
    ''' <summary>
    ''' Unique Font Identifier. GUID is being generated when a font is created and then 
    ''' kept for the entire life-time of the font.
    ''' The ID is used as KEY value in any lists/collections of fonts, file name, including
    '''	preview images etc. 
    ''' </summary>
    ''' <remarks>The GUID is stored in raw 32 characters long string format without any {} 
    ''' or dashes ("-").
    ''' </remarks> 
	<VBFixedString(32)> Public ID As String
    ''' <summary>
    ''' A Custom Name/Label for the Font
    ''' </summary>
    ''' <remarks>
    ''' This is not a key, so it is not required to be unique in a collection of fonts.
    ''' </remarks>
    <VBFixedString(25)> Public NAME As String
    ''' <summary>
    ''' Credits/Creator Name (Optional Information)
    ''' </summary>
    ''' <remarks></remarks>
    <VBFixedString(35)> Public CREATEDBY As String
    ''' <summary>
    ''' Font Created Date/Time in String Format "YYYYMMDD-HHNNSS"
    ''' </summary>
    ''' <remarks></remarks>
    <VBFixedString(15)> Public DATECREATED As String
    ''' <summary>
    ''' Last Modified Date/Time in String Format "YYYYMMDD-HHNNSS"
    ''' </summary>
    ''' <remarks></remarks>
    <VBFixedString(15)> Public LASTCHANGED As String
    ''' <summary>
    ''' FONTTYPE Value derived from <seealso>eAnsiFontTypes</seealso> Enumeration.
    ''' 01 = ANSI, 02 = ASCII
    ''' </summary>
    ''' <remarks></remarks>
    Public FONTTYPE As Byte
    Public EMPTYLINEHEIGHT As Byte
    Public LETTERSPACING As Byte
    Public LINESPACING As Byte
    Public SPACEWIDTH As Byte
    Public BASELINEHEIGHT As Byte
    ''' <summary>
    ''' ALLCASE Value derived from <seealso>eLetterCase</seealso> Enumeration.
    ''' 00 = NotApplicable, 01 = UpperCase, 02 = LowerCase
    ''' </summary>
    ''' <remarks></remarks>
    Public ALLCASE As Byte
    ''' <summary>
    '''  ALLOWOVERLAP Converted by BOOLEAN, only 00 and 01 are valid values.
    ''' </summary>
    ''' <remarks></remarks>
    Public ALLOWOVERLAP As Byte
    ''' <summary>
    ''' UPPEREQLOWER Converted by BOOLEAN, only 00 and 01 are valid values.
    ''' </summary>
    ''' <remarks></remarks>
    Public UPPEREQLOWER As Byte
    <VBFixedString(13)>  Public FILLER As String
End Structure

Public Structure AFNT_CHAR
    Public DOSCHAR  As Byte
    Public DEFINED  As Byte
    Public MAXWIDTH  As Byte
    Public MAXHEIGHT  As Byte
    Public BLOCKSTART  As System.Int32
End Structure

Public Structure CHAR_SMUSH
    Public NEAR  As System.Int32
    Public FAR  As System.Int32
End Structure

Public Structure CHAR_CHAR
    Public CHARVALUE  As Byte
    Public FORECOLOR  As Byte
    Public BACKCOLOR  As Byte
    Public BLINKING As Byte
    Public REVERSED  As Byte
    Public UNUSED1  As Byte
    Public UNUSED2  As Byte
    Public UNUSED3  As Byte
End Structure

Public Structure CHAR_CHUNK
    Public DOSCHAR As Byte
    Public CHARBLOCK  As CHAR_CHAR()
    Public SMUSHBLOCK As CHAR_SMUSH()
End Structure

public struct ANSIFONT_CHUNK
{
	public AFNT_CHUNK AFNT;
	public CHAR_CHUNK[] CHAR_CHUNKS;
}

public struct AFNT_CHUNK
{
	public AFNT_MAIN MAIN;
	public AFNT_CHAR[] CHARS;
}

public struct AFNT_MAIN
{
	/// <summary>
	/// Unique Font Identifier. GUID is being generated when a font is created and then 
	/// kept for the entire life-time of the font.
	/// The ID is used as KEY value in any lists/collections of fonts, file name, including
	///	preview images etc. 
	/// </summary>
	/// <remarks>The GUID is stored in raw 32 characters long string format without any {} 
	/// or dashes ("-").
	/// </remarks> 
	[VBFixedString(32)]
	public string ID;
	/// <summary>
	/// A Custom Name/Label for the Font
	/// </summary>
	/// <remarks>
	/// This is not a key, so it is not required to be unique in a collection of fonts.
	/// </remarks>
	[VBFixedString(25)]
	public string NAME;
	/// <summary>
	/// Credits/Creator Name (Optional Information)
	/// </summary>
	/// <remarks></remarks>
	[VBFixedString(35)]
	public string CREATEDBY;
	/// <summary>
	/// Font Created Date/Time in String Format "YYYYMMDD-HHNNSS"
	/// </summary>
	/// <remarks></remarks>
	[VBFixedString(15)]
	public string DATECREATED;
	/// <summary>
	/// Last Modified Date/Time in String Format "YYYYMMDD-HHNNSS"
	/// </summary>
	/// <remarks></remarks>
	[VBFixedString(15)]
	public string LASTCHANGED;
	/// <summary>
	/// FONTTYPE Value derived from <seealso>eAnsiFontTypes</seealso> Enumeration.
	/// 01 = ANSI, 02 = ASCII
	/// </summary>
	/// <remarks></remarks>
	public byte FONTTYPE;
	public byte EMPTYLINEHEIGHT;
	public byte LETTERSPACING;
	public byte LINESPACING;
	public byte SPACEWIDTH;
	public byte BASELINEHEIGHT;
	/// <summary>
	/// ALLCASE Value derived from <seealso>eLetterCase</seealso> Enumeration.
	/// 00 = NotApplicable, 01 = UpperCase, 02 = LowerCase
	/// </summary>
	/// <remarks></remarks>
	public byte ALLCASE;
	/// <summary>
	///  ALLOWOVERLAP Converted by BOOLEAN, only 00 and 01 are valid values.
	/// </summary>
	/// <remarks></remarks>
	public byte ALLOWOVERLAP;
	/// <summary>
	/// UPPEREQLOWER Converted by BOOLEAN, only 00 and 01 are valid values.
	/// </summary>
	/// <remarks></remarks>
	public byte UPPEREQLOWER;
	[VBFixedString(13)]
	public string FILLER;
}

public struct AFNT_CHAR
{
	public byte DOSCHAR;
	public byte DEFINED;
	public byte MAXWIDTH;
	public byte MAXHEIGHT;
	public System.Int32 BLOCKSTART;
}

public struct CHAR_SMUSH
{
	public System.Int32 NEAR;
	public System.Int32 FAR;
}

public struct CHAR_CHAR
{
	public byte CHARVALUE;
	public byte FORECOLOR;
	public byte BACKCOLOR;
	public byte BLINKING;
	public byte REVERSED;
	public byte UNUSED1;
	public byte UNUSED2;
	public byte UNUSED3;
}

public struct CHAR_CHUNK
{
	public byte DOSCHAR;
	public CHAR_CHAR[] CHARBLOCK;
	public CHAR_SMUSH[] SMUSHBLOCK;
}