Classes arrays objects for webservices

[burnv84]

Can anyone correct this piece of code?
Error - Ojbect Variable or With Bloack variable no set. NewOrder.LineItems() = Xline()

[vba]
Sub webservicetest3()

Dim NewOrder As struct_XOrder
Dim LineItems(1 To 2) As Variant
Dim Xline(1 To 2) As struct_LineItem

' Dim mystruct As struct_LineItem2
' Xline(1) = mystruct

'Set Xline(1) = New struct_LineItem

NewOrder.LineItems() = Xline()
Xline(1).ProductSKU = "abcde"
Xline(1).UnitPrice = "19.95"
Xline(1).ItemComment = "items"
Xline(1).Qty = 10

NewOrder.LineItems() = Xline()
Xline(2).ProductSKU = "daaaa"
Xline(2).UnitPrice = "20.00"
Xline(2).ItemComment = "items2"
Xline(2).Qty = 20

NewOrder.LineItems() = Xline()
Debug.Print NewOrder.ClientShortName
Debug.Print NewOrder.OrderNumber

Dim I As Integer
For I = 1 To UBound(NewOrder.LineItems)
Debug.Print NewOrder.LineItems(I).ProductSKU
Debug.Print NewOrder.LineItems(I).UnitPrice
Debug.Print NewOrder.LineItems(I).ItemComment
Debug.Print NewOrder.LineItems(I).Qty
Next I
[/vba]