CSubjectObserver

Option Explicit
' This class defines both the Observer Class and the Observer class.

' The ConcreteSubject class calls this Update method

' VBs Event mechanism then notifies each "subscribing" ConcreteObserver

Public Event Notify(sState_r As String)

'

Public Sub Update(sState_r As String)
RaiseEvent Notify(sState_r)
End Sub