Class ...
 
[....]
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim al As New ArrayList
 
        Dim MyItem1 As New MyItem("foo", "bar")
        Dim MyItem2 As New MyItem("bla", "blub")
        Dim MyItem3 As New MyItem("item1", "item2")
 
        al.Add(MyItem1)
        al.Add(MyItem2)
        al.Add(MyItem3)
 
        Dim item As MyItem
        For a As Integer = 0 To al.Count - 1
            item = CType(al(a), MyItem)
            Debug.WriteLine(item.Item1 + " : " + item.Item2)
        Next
 
    End Sub
End Class
 
Public Class MyItem
 
    Private m_item1 As String
    Private m_item2 As String
 
    Public Sub New(ByVal Item1 As String, ByVal Item2 As String)
        Me.m_item1 = Item1
        Me.m_item2 = Item2
    End Sub
 
    Public Property Item1() As String
        Get
            Return m_item1
        End Get
        Set(ByVal Value As String)
            m_item1 = Value
        End Set
    End Property
 
    Public Property Item2() As String
        Get
            Return m_item2
        End Get
        Set(ByVal Value As String)
            m_item2 = Value
        End Set
    End Property
 
    '// [...] usw.
End Class