Class user
        Property name As  Integer 
        Property family As  Integer 
        Property mscool As  scool
    End Class

    Class scool
        Property a1 As object
        Property a2  As object
        Property a3 As object
    End Class
 
    Class data
        Property data As List(Of user)
        Sub New
            dim s =New scool
            For x As Integer =0 To 1000000
                Dim u= New user
                u.name =x
                u.family =x
                u.mscool =s
                data.Add (New user)
            Next
        End Sub
    End Class