Public Class Form1
    Inherits System.Windows.Forms.Form
 
    Private MyCollection As System.Collections.ArrayList
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        MyCollection = New ArrayList
 
        MyCollection.Add(New CollectionItem("schnabel", "Nürnberg", "00000"))
        MyCollection.Add(New CollectionItem("Niko", "Rossau", "09661"))
 
        Dim i As Integer
        For i = 1 To MyCollection.Count
            With MyCollection(i - 1)
                MessageBox.Show(.name & " " & .plz & " " & .ort)
            End With
        Next
    End Sub
 
End Class
 
Public Class CollectionItem
    Public Name As String
    Public Ort As String
    Public PLZ As String
 
    Public Sub New(ByVal vName As String, ByVal vOrt As String, ByVal vPLZ As _
      String)
        Name = vName
        Ort = vOrt
        PLZ = vPLZ
    End Sub
 
End Class