Partial Public Class Betaleregrp4900
 
   Private oversiktOverBetaleregrp4899Field() As OversiktOverBetaleregrp4899
 
   Private betalingTotaldatadef21821Field As BetalingTotaldatadef21821
 
   Private betalerAntalldatadef21822Field As BetalerAntalldatadef21822
 
   Private gruppeidField As String
 
   Public Sub New()
       MyBase.New
       Me.gruppeidField = "4900"
   End Sub
 
   '''<remarks/>
   <System.Xml.Serialization.XmlElementAttribute("OversiktOverBetalere-grp-
4899")>  _
   Public Property OversiktOverBetaleregrp4899() As
OversiktOverBetaleregrp4899()
       Get
           Return Me.oversiktOverBetaleregrp4899Field
       End Get
       Set
           Me.oversiktOverBetaleregrp4899Field = value
       End Set
   End Property

Skjema_Obj.Betaleregrp4900.OversiktOverBetaleregrp4899 = New
OversiktOverBetaleregrp4899() { _
       New OversiktOverBetaleregrp4899, _
       New OversiktOverBetaleregrp4899}

Partial Public Class OversiktOverBetaleregrp4899
 
   Private betalerFodselsnummerdatadef2305Field As
BetalerFodselsnummerdatadef2305
 
   Private betalerOrganisasjonsnummerdatadef21820Field As
BetalerOrganisasjonsnummerdatadef21820
 
   Private betalerNavndatadef2303Field As BetalerNavndatadef2303
 
   Private betalerAdressedatadef2304Field As BetalerAdressedatadef2304
 
   Private betalerPostnummerdatadef11795Field As
BetalerPostnummerdatadef11795
 
   Private betalerPoststeddatadef11796Field As BetalerPoststeddatadef11796
 
   Private betalingBelopdatadef2307Field As BetalingBelopdatadef2307
 
   Private gruppeidField As String
 
   Public Sub New()
       MyBase.New
       Me.gruppeidField = "4899"
   End Sub
 
   '''<remarks/>
   <System.Xml.Serialization.XmlElementAttribute("BetalerFodselsnummer-
datadef-2305")>  _
   Public Property BetalerFodselsnummerdatadef2305() As
BetalerFodselsnummerdatadef2305
       Get
           Return Me.betalerFodselsnummerdatadef2305Field
       End Get
       Set
           Me.betalerFodselsnummerdatadef2305Field = value
       End Set
   End Property

Dim i As Integer = 0
        Dim NumberOfCustomers = 3
        Dim OversiktOverBer_Tabell(NumberOfCustomers - 1) As OversiktOverBetaleregrp4899

        
        While NumberOfCustomers > 0

            Skjema_Obj.Betaleregrp4900.OversiktOverBetaleregrp4899 {New Oversik}


            Dim OversiktOverBet_Obj As New OversiktOverBetaleregrp4899

            Dim BetalerOrganisasjonsnummerdatadef21820_Obj As New BetalerOrganisasjonsnummerdatadef21820
            BetalerOrganisasjonsnummerdatadef21820_Obj.Value = "Test BetOrgNr (0) - 123456789"

            Dim BetalerFodselsnummerdatadef2305_Obj As New BetalerFodselsnummerdatadef2305
            BetalerFodselsnummerdatadef2305_Obj.Value = "Test BetFørslenr (0) - 07097645669"

            Dim BetalerNavndatadef2303_Obj As New BetalerNavndatadef2303
            BetalerNavndatadef2303_Obj.Value = "Test BetNavn (0) - Kari Normann"

            Dim BetalerAdressedatadef2304_Obj As New BetalerAdressedatadef2304
            BetalerAdressedatadef2304_Obj.Value = "Test BetAdr (0) - Flatbygdi"

            Dim BetalerPostnummerdatadef11795_Obj As New BetalerPostnummerdatadef11795
            BetalerPostnummerdatadef11795_Obj.Value = "Test BetPostNr (0) - 6893"

            Dim BetalerPoststeddatadef11796_Obj As New BetalerPoststeddatadef11796
            BetalerPoststeddatadef11796_Obj.Value = "Test BetPostSted (0) - Vik i Sogn"

            Dim BetalingBelopdatadef2307_Obj As New BetalingBelopdatadef2307
            BetalingBelopdatadef2307_Obj.Value = "2330"


            OversiktOverBet_Obj.BetalerOrganisasjonsnummerdatadef21820 = BetalerOrganisasjonsnummerdatadef21820_Obj
            OversiktOverBet_Obj.BetalerFodselsnummerdatadef2305 = BetalerFodselsnummerdatadef2305_Obj
            OversiktOverBet_Obj.BetalerNavndatadef2303 = BetalerNavndatadef2303_Obj
            OversiktOverBet_Obj.BetalerAdressedatadef2304 = BetalerAdressedatadef2304_Obj
            OversiktOverBet_Obj.BetalerPostnummerdatadef11795 = BetalerPostnummerdatadef11795_Obj
            OversiktOverBet_Obj.BetalerPoststeddatadef11796 = BetalerPoststeddatadef11796_Obj
            OversiktOverBet_Obj.BetalingBelopdatadef2307 = BetalingBelopdatadef2307_Obj

--> This is may problem, I have to do this another way. Is it possible to split this sentence. The array/list Skjema_Obj.Betaleregrp4900.OversiktOverBetaleregrp4899 must have in this case 3 OversiktOverBetaleregrp4899 objekst, and I have to say {New OversiktOverBetaleregrp4899, New OversiktOverBetaleregrp4899, New OversiktOverBetaleregrp4899}
but how do I do that when the number of objects is not static?

            Skjema_Obj.Betaleregrp4900.OversiktOverBetaleregrp4899 = New OversiktOverBetaleregrp4899() {New OversiktOverBetaleregrp4899}            Skjema_Obj.Betaleregrp4900.OversiktOverBetaleregrp4899(i) = OversiktOverBet_Obj

            OversiktOverBer_Tabell(i) = OversiktOverBet_Obj

            i = i + 1

            NumberOfCustomers = NumberOfCustomers - 1

        End While

Partial Public Class CItem1
 
  Public Prop1 As Integer
  Public Prop2 As String
 
  Public Sub New(ByVal value1 As Integer, ByVal value2 As String)
    '
    Prop1 = value1
    Prop2 = value2
  End Sub
 
End Class
 
Partial Public Class CItem2
 
  Public Prop3 As Integer
  Public Prop4() As CItem1
 
  Public Sub New(ByVal value3 As Integer, ByVal NumOfElements As Integer)
    '
    Prop3 = value3
    ReDim Prop4(NumOfElements)
  End Sub
 
End Class

Dim OneItem As CItem2
 
OneItem = New CItem2(3, 2) ' Now Prop3 has the value 3 and we have an uninitialized array with three CItem1s
 
' Set some values
OneItem.Prop4(0).Prop1 = 1
OneItem.Prop4(0).Prop2 = "Cust1"
' Or...
OneItem.Prop4(1) = New CItem1(2, "Cust2")