Returnering af en samling objekter fra en klasse ?

du kan returnere en collection f.eks.

public function FlyRejse(parametere) as Collection
  \'Din kode der fylder collection
end function

Og Tak,

Jeg har luret lidt på denne Collection function
Men hvordan fylder jeg den op med objekter ?
Og hvordan læser jeg dem igen.

Men jeg tror vi er på rette spor her :-)

Måske dette kan bruges

Sub ClassNamer()
  Dim MyClasses As New Collection  \' Create a Collection object.
  Dim Num  \' Counter for individualizing keys.
  Dim Msg As String  \' Variable to hold prompt string.
  Dim TheName, MyObject, NameList  \' Variants to hold information.
  Do
      Dim Inst As New Class1  \' Create a new instance of Class1.
      Num = Num + 1  \' Increment Num, then get a name.
      Msg = \"Please enter a name for this object.\" & Chr(13) _
      & \"Press Cancel to see names in collection.\"
      TheName = InputBox(Msg, \"Name the Collection Items\")
      Inst.InstanceName = TheName  \' Put name in object instance.
      \' If user entered name, add it to the collection.
      If Inst.InstanceName <> \"\" Then
        \' Add the named object to the collection.
        MyClasses.Add item := Inst, key := CStr(Num)
      End If
      \' Clear the current reference in preparation for next one.
      Set Inst = Nothing
  Loop Until TheName = \"\"
  For Each MyObject In MyClasses  \' Create list of names.
      NameList = NameList & MyObject.InstanceName & Chr(13)
  Next MyObject
  \' Display the list of names in a message box.
  MsgBox NameList, , \"Instance Names In MyClasses Collection\"

  For Num = 1 To MyClasses.Count  \' Remove name from the collection.
      MyClasses.Remove 1  \' Since collections are reindexed
            \' automatically, remove the first
  Next      \' member on each iteration.
End Sub

/Wilco