ExampleUsage

' Declarations Section of a form:

'

Option Explicit
'

Private m_oObservers(5) As CConcreteObserver
Private m_oSubjectObserver As CSubjectObserver
Private m_oSubject As CConcreteSubject
'

Private Sub cmdUpdate_Click()
m_oSubject.State = txtState.Text
End Sub

'

Private Sub Form_Load()
'

Dim iLoop As Integer
'

Set m_oSubjectObserver = New cSubjectObserver
Set m_oSubject = New CConcreteSubject
'

m_oSubject.init m_oSubjectObserver
'

' Create 5 Observer objects

'

For iLoop = 1 To 5
Set m_oObservers(iLoop) = New CConcreteObserver
m_oObservers(iLoop).init m_oSubjectObserver, iLoop
Next iLoop
'

End Sub