Option Explicit
Private Const E_NOT_INITIALIZED As Long = &H1
Public Event MyEvent(ByVal Module As clsModule, ByVal Message As String)
Private m_strName As String
Private m_blnInitialized As Boolean
Public Sub Initialize(Name As String)
m_strName = Trim$(Name)
m_blnInitialized = m_strName <> ""
End Sub
Public Property Get Name() As String
Name = m_strName
End Property
Public Sub Notify()
If m_blnInitialized = False Then
Call Err.Raise(vbObjectError + E_NOT_INITIALIZED, Description:="Klasse ist nicht initialisiert.")
End If
RaiseEvent MyEvent(Me, "Hallo, ich bin """ & Me.Name & """.")
End Sub