Class Property not Returning

[cday119]

I have a Class with about 10 properties. All properties return right except for one. It is real annoying and I can't see why its not working. Maybe someone else can see something. It is the NumberLines property. I can set it to 4 but when it returns it is set to 1

Public Class Profile
 
    Private ProfileFileName As String
    Private ProfileDescription As String
    Private ProfileVersion As Integer
    Private ProfileNumAutoReduction As Integer
    Private ProfileNumberLines As Integer
    Private ProfilePrinterName As String
    Private ProfilePrintOrientation As String
    Private ProfilePaperSize As Integer
    Private ProfileColumnsPerPage As Integer
    Private ProfileRowsPerPage As Integer
    Private ProfileHorizontalDisplacement As Integer
    Private ProfileVerticalDisplacement As Integer
    Private ProfileHorizontalSeperation As Integer
    Private ProfileVerticalSeperation As Integer
    Private ProfileLines As New Collection
 
    Public Sub New()
        'This how sub sets the defaults of the default profile.
        Me.Description = "New Profile"
        Me.Version = 2
        Me.NumAutoReduction = 4
        Me.NumberLines = 4
        Me.PrintOrientation = 44
        Me.PaperSize = 260
        Me.ColumnsPerPage = 1
        Me.RowsPerPage = 1
        Me.HorizontalDisplacement = 0
        Me.VerticalDisplacement = 0
        Me.HorizontalSeperation = 0
        Me.VerticalSeperation = 0
 
        Dim Line As Collection = New Collection
        Dim Line2 As Collection = New Collection
        Dim Line3 As Collection = New Collection
        Dim Line4 As Collection = New Collection
        Dim Reduction As Collection = New Collection
        Dim Reduction2 As Collection = New Collection
        Dim Reduction3 As Collection = New Collection
        Dim Reduction4 As Collection = New Collection
        Dim Reduction5 As Collection = New Collection
 
        Dim i As Integer = 1
 
        Reduction.Add("True", "Enabled")
        Reduction.Add("24", "Size")
        Reduction.Add("Arial", "Font")
        Reduction2.Add("18", "Size")
        Reduction2.Add("Arial", "Font")
        Reduction3.Add("16", "Size")
        Reduction3.Add("Arial Narrow", "Font")
        Reduction4.Add("14", "Size")
        Reduction4.Add("Arial Narrow", "Font")
        Reduction5.Add("12", "Size")
        Reduction5.Add("Arial Narrow", "Font")
        Line.Add(Reduction, "Reduction1")
        Line.Add(Reduction2, "Reduction2")
        Line.Add(Reduction3, "Reduction3")
        Line.Add(Reduction4, "Reduction4")
        Line2.Add(Reduction2, "Reduction1")
        Line2.Add(Reduction3, "Reduction2")
        Line2.Add(Reduction4, "Reduction3")
        Line2.Add(Reduction5, "Reduction4")
        Line3.Add(Reduction3, "Reduction1")
        Line3.Add(Reduction4, "Reduction2")
        Line3.Add(Reduction5, "Reduction3")
        Line3.Add(Reduction5, "Reduction4")
        Line4.Add(Reduction4, "Reduction1")
        Line4.Add(Reduction5, "Reduction2")
        Line4.Add(Reduction5, "Reduction3")
        Line4.Add(Reduction5, "Reduction4")
 
        Me.Lines.Add(Line, "Line1")
        Me.Lines.Add(Line2, "Line2")
        Me.Lines.Add(Line3, "Line3")
        Me.Lines.Add(Line4, "Line4")
 
        MsgBox(ProfileNumberLines)
    End Sub
 
    Property Description() As String
        Get
            Return ProfileDescription
        End Get
        Set(ByVal value As String)
            ProfileDescription = value
        End Set
    End Property
 
    Property FileName() As String
        Get
            Return ProfileFileName
        End Get
        Set(ByVal value As String)
            ProfileFileName = value
        End Set
    End Property
 
    Property Version() As Integer
        Get
            Return ProfileVersion
        End Get
        Set(ByVal value As Integer)
            ProfileVersion = value
        End Set
    End Property
 
    Property NumAutoReduction() As Integer
        Get
            Return ProfileNumAutoReduction
        End Get
        Set(ByVal value As Integer)
            ProfileNumAutoReduction = value
        End Set
    End Property
 
    Property PrinterName() As String
        Get
            Return ProfilePrinterName
        End Get
        Set(ByVal value As String)
            ProfilePrinterName = value
        End Set
    End Property
 
    Property PrintOrientation() As String
        Get
            Return ProfilePrintOrientation
        End Get
        Set(ByVal value As String)
            ProfilePrintOrientation = value
        End Set
    End Property
 
    Property PaperSize() As Integer
        Get
            Return ProfilePaperSize
        End Get
        Set(ByVal value As Integer)
            ProfilePaperSize = value
        End Set
    End Property
 
    Property ColumnsPerPage() As Integer
        Get
            Return ProfileColumnsPerPage
        End Get
        Set(ByVal value As Integer)
            ProfileColumnsPerPage = value
        End Set
    End Property
 
    Property RowsPerPage() As Integer
        Get
            Return ProfileRowsPerPage
        End Get
        Set(ByVal value As Integer)
            ProfileRowsPerPage = value
        End Set
    End Property
 
    Property HorizontalDisplacement() As Integer
        Get
            Return ProfileHorizontalDisplacement
        End Get
        Set(ByVal value As Integer)
            ProfileHorizontalDisplacement = value
        End Set
    End Property
 
    Property VerticalDisplacement() As Integer
        Get
            Return ProfileVerticalDisplacement
        End Get
        Set(ByVal value As Integer)
            ProfileVerticalDisplacement = value
        End Set
    End Property
 
    Property HorizontalSeperation() As Integer
        Get
            Return ProfileHorizontalSeperation
        End Get
        Set(ByVal value As Integer)
            ProfileHorizontalSeperation = value
        End Set
    End Property
 
    Property VerticalSeperation() As Integer
        Get
            Return ProfileVerticalSeperation
        End Get
        Set(ByVal value As Integer)
            ProfileVerticalSeperation = value
        End Set
    End Property
 
    Public Property Lines() As Collection
        Get
            Return ProfileLines
        End Get
        Set(ByVal value As Collection)
            ProfileLines = value
        End Set
    End Property
 
    Property NumberLines() As Integer
        Get
            Return ProfileNumberLines
        End Get
        Set(ByVal value As Integer)
            ProfileNumberLines = value
        End Set
    End Property
 
End Class
 

And this is how a call a new Profile

Public Class frmPageSetup
 
Public Shared Profile As New Profile()
 

[cday119]

It figures, I've been struggling with this one for awhile and just found the problem. I have an onChange event that was triggered when the profile was loaded that set the NumberLines to 1.

Sorry Gang