Public Class ImaginaryModelGenerator

    Public bs1 As BabySitter
    Public bs2 As BabySitter
    Public m1 As Meet
    Public c1 As Child
    Public c2 As Child
    Public p1 As Parent
    Public p2 As Parent

    Public Sub New()
        bs1 = New BabySitter(1, "bs1", "bs1", "1111")
        bs2 = New BabySitter(2, "bs2", "bs2", "2222")

        m1 = New Meet()
        m1.monday = True
        m1.sunday = True

        c1 = New Child(1, "c1", "c1", "", New Date(), m1)
        c2 = New Child(2, "c2", "c2", "", New Date(), m1)

        p1 = New Parent(1, "p1", "p1", "1111", "1111")
        p2 = New Parent(2, "p2", "p2", "2222", "2222")
    End Sub

End Class