An unhandled exception of type 'System.StackOverflowException' occurred

[geo039]

I am a beginner and I have a class that keeps giving me the "An unhandled exception of type 'System.StackOverflowException' occurred" error. I have looked online and do not understand how to correct the issue. Any takers?

Public Class BankCustomer
 
    ' Require proper data, on the creation of a new customer
    Public Sub New(ByVal firstName As String, ByVal lastName As String, ByVal accountNumber As String, ByVal balance As Decimal)
        Me.firstName = firstName
        Me.lastName = lastName
        Me.accountNumber = accountNumber
        Me.balance = balance
    End Sub 'New
 
    ' private fields
    Private m_firstName As String
    Private m_lastName As String
    Private m_balance As Decimal
    Private m_accountNumber As String
 
    ' public properties
 
    Public Property FirstName() As String
        Get
            Return firstName
        End Get
        Set(ByVal Value As String)
            firstName = value
        End Set
    End Property
 
    Public Property LastName() As String
        Get
            Return lastName
        End Get
        Set(ByVal Value As String)
            lastName = value
        End Set
    End Property
 
    Public Property Balance() As Decimal
        Get
            Return balance
        End Get
        Set(ByVal Value As Decimal)
            balance = value
        End Set
    End Property
 
    Public Property AccountNumber() As String
        Get
            Return accountNumber
        End Get
        Set(ByVal Value As String)
            accountNumber = value
        End Set
    End Property
 
    ' methods
    Public Sub Deposit(ByVal amount As Decimal)
        ' Add the amount deposited to the 
        ' customers balance.
        balance += amount
    End Sub 'Deposit
 
 
    Public Function GetAccountSummary(ByVal accountNumber As Integer) As String
        Dim summary As String = "Account Number: " + Me.accountNumber + ControlChars.Lf + "Customer: " + Me.lastName + ", " + Me.firstName + ControlChars.Lf + "Balance: " + Me.balance.ToString()
 
        Return summary
    End Function 'GetAccountSummary
 
 
    Public Sub Widthdrawl(ByVal amount As Decimal)
        If amount <= balance Then
            balance -= amount
        Else
            MessageBox.Show("You have insufficient funds, please try a smaller amount", "Insufficient Funds")
        End If
    End Sub 'Widthdrawl
End Class 'BankCustomer

[geo039]

I got this functioning....i had the privates all wrong, thanks for viewing =)

[kenobewan]

Well done!