VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsCustomer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private mName As String
Private mCustomerID As String * 12
Private mAddress As String
Private mInBank As Boolean


Public Property Get Name() As String
   Name = mName
End Property

Public Property Let Name(ByVal strNewValue As String)
   mName = strNewValue
End Property

Public Property Get InBank() As Boolean
  InBank = mInBank
End Property

Public Property Let InBank(ByVal blnNewValue As Boolean)
   mInBank = blnNewValue
End Property

Public Property Get Address() As String
   Address = mAddress
End Property

Public Property Let Address(ByVal strNewValue As String)
   mAddress = strNewValue
End Property

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

Public Property Let CustomerID(ByVal strNewValue As String)

  If Len(strNewValue) <= 12 Then
     mCustomerID = strNewValue
  Else
     MsgBox "Cannot Set Customer ID"
  End If
  
End Property
