Private Function BuildList() As List(Of Element)
   Dim lst As New List(Of Element)
   With lst
      .Add(New Element With {.Name = "Sodium", .AtomicNumber = 11})
      .Add(New Element With {.Name = "Magnesium", .AtomicNumber = 12})
      .Add(New Element With {.Name = "Aluminum", .AtomicNumber = 13})
   End With
 
   'Füllen per Iteration
   Dim lst2 As New List(Of Element)
   For i As Integer = 0 To lst.Count - 1
      lst2.Add(lst(i))
   Next i
 
   'oder
   lst2.Clear()
   lst2.AddRange(lst)
 
   'Rückgabe einer Referenz
   Return lst
End Function
 
 
Public Class Element
   Public Property Name As String
   Public Property AtomicNumber As Integer
End Class