Public Property Orders() As Orders
Get
Return ordersValue
End Get
Set(ByVal value As Orders)
ordersValue = value
End Set
End Property

Private Sub ordersValue_AddingNew(ByVal sender As Object, ByVal e As System.ComponentModel.AddingNewEventArgs) Handles ordersValue.AddingNew
e.NewObject = New Order(999, Me.CustomerID, Date.Today, DateAdd(DateInterval.Day, 30, Date.Today))
End Sub