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

Public Event Hello(Name As String)

Private mID As Long
Private mName As String
Private mAddress As String

Public Property Let ID(ByVal lID As Long)
   mID = lID
End Property
Public Property Get ID() As Long
   ID = mID
End Property
Public Property Let Name(ByVal sName As String)
   mName = sName
End Property
Public Property Get Name() As String
   Name = mName
End Property
Public Property Let Address(ByVal sAddress As String)
   mAddress = sAddress
End Property
Public Property Get Address() As String
   Address = mAddress
End Property

Public Sub SayHello()
   RaiseEvent Hello(mName)
End Sub
