Public Class Wedding
#Region "Private Members"
Private _rob As New Groom
Private _brandi As New Bride
#End Region
#Region "Constructors"
Public Sub New()
End Sub
#End Region
#Region "Methods"
Public Sub Plan()
SetDate()
BookWeddingPlace()
BookWeddingReceptionPlace()
BookPhotographer()
BookDJ()
SelectWeddingColors()
SelectCake()
SelectFloralArrangements()
'all of this planning - GRRRRR!
If (_rob.HasMigraine = False) Then
_rob.HasMigraine = True
End If
End Sub
Public Sub Execute() 'finally, the big day
'and what a special occasion
If Not (TypeOf _rob Is Nutcase) Then
_rob = DirectCast(_rob, Nutcase)
End If
'enter my mother
Dim _christine As New Mother
Do Until (_rob.Annoyed = True)
_christine.GetInTheWay()
Loop
'now I am annoyed and need an outlet
Do While (_brandi.Annoyed = False)
_rob.AnnoyBride()
If (_brandi.HasMigraine = True) Then
Exit Do
End If
Loop
'of course
If (_rob.HasMigraine = False) Then
_rob.HasMigraine = True
End If
End Sub
#End Region
#Region "Properties"
#End Region
#Region "Events"
#End Region
End Class