Option ? Explicit

Public ?Count? As ? Integer

Private ? Sub ?Class_Initialize()
???? If ?gSingleton? Is ? Nothing ? Then
???????? Set ?gSingleton? = ?Me
???? End ? If
End?Sub

Public ? Function ?GetInstance()? As ?SingletonClass
???? Set ?GetInstance? = ?gSingleton
End?Function

Public ?gSingleton? As ?SingletonClass

Public ? Function ?SetName(Name? As ? String )
????SetName? = ? Trim ( UCase (Name))
End?Function

Implements?IMethod

Private ?Base? As ?IMethod

Private ? Sub ?Class_Initialize()
???? Set ?Base? = ? New ?IMethod
End?Sub

Private ? Sub ?Class_Terminate()
???? Set ?Base? = ? Nothing
End?Sub

Private ? Function ?IMethod_SetName(Name? As ? String )? As ?Variant
????IMethod_SetName? = ?Base.SetName(Name)
????IMethod_SetName? = ?IMethod_SetName? & ? " 0001 "
End?Function

Implements?ITestContainer

Public ? Property ? Get ?ITestContainer_TestCaseNames()? As ?Variant()
????ITestContainer_TestCaseNames? = ? Array ( " TestString " )
End?Property

Public ? Sub ?ITestContainer_RunTestCase(oTestCase? As ?ITestCase,?oTestResult? As ?TestResult)
????CallByName?Me,?oTestCase.Name,?VbMethod,?oTestResult
End?Sub

Public ? Sub ?TestString(oTestResult? As ?TestResult)
End?Sub

Option ? Explicit
' Ineteface?Subject
Public ? Sub ?Register(obs? As ?Observer)
End?Sub

Option ? Explicit

' Interface?Observer
Public ? Sub ?Notify(msg? As ? String )
End?Sub

' frmMain

Implements?Subject

Dim ?cc? As ?Collection

Private ? Sub ?Command1_Click()
???? Dim ?c? As ?Observer
???? For ? Each ?c?In?cc
????????c.Notify? InputBox ( " Caption: " )
???? Next
End?Sub

Private ? Sub ?Form_Load()
???? Set ?cc? = ? New ?Collection
???? Dim ?o? As ?frm1
???? Set ?o? = ? New ?frm1
????o.Ini?Me
????o.Show
????
???? Dim ?oo? As ?frm2
???? Set ?oo? = ? New ?frm2
????oo.Ini?Me
????oo.Show

End?Sub

Private ? Sub ?Subject_Register(obs? As ?Observer)
????cc.Add?obs
End?Sub


' frm1
Implements?Observer

Public ? Sub ?Ini(s? As ?Subject)
????s.Register?Me
End?Sub

Private ? Sub ?Observer_Notify(msg? As ? String )
????Me.Caption? = ?msg
End?Sub

' frm2

Implements?Observer

Public ? Sub ?Ini(s? As ?Subject)
????s.Register?Me
End?Sub

Private ? Sub ?Observer_Notify(msg? As ? String )
????Me.Caption? = ?msg
End?Sub