VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsAccount"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private mCustomerID As String * 12
Private mType As String
Private mBalance As Currency




Public Property Get CustomerID() As String
   CustomerID = mCustomerID
End Property

Public Property Let CustomerID(ByVal strNewValue As String)
   mCustomerID = strNewValue
End Property

Public Property Get AccountType() As String
   AccountType = mType
End Property

Public Property Let AccountType(ByVal strNewValue As String)
   mType = strNewValue
End Property

Public Property Get Balance() As Currency
   Balance = mBalance
End Property

Public Property Let Balance(ByVal curNewValue As Currency)
   mBalance = curNewValue
End Property

Public Function Withdrawl(Amount As Currency) As Boolean

   If Amount < mBalance Then
      mBalance = mBalance - Amount
      Withdrawl = True
   Else
      Withdrawl = False
   End If
   
End Function

Public Sub Deposit(Amount As Currency)
  mBalance = mBalance + Amount
End Sub
