Imports System.ComponentModel

Public Class Form1
    Private mTest As New BindingList(Of Verein)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        For i As Integer = 0 To 5
            mTest.Add(New Verein("Jesus lebt!" & i))
        Next
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim myForm2 As New Form2(mTest)
        myForm2.Show()
    End Sub
End Class

Public Class Form2
    Private mTest As New BindingList(Of Verein)
 
    Public Property Test() As BindingList(Of Verein)
        Get
            Return mTest
        End Get
        Set(ByVal value As BindingList(Of Verein))
            mTest = value
        End Set
    End Property
 
    'Standardkonstruktor
    Public Sub New()
        InitializeComponent()
    End Sub
 
    'Überladener Konstruktor
    Public Sub New(ByVal lst As BindingList(Of Verein))
        InitializeComponent()
        mTest = lst
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        MessageBox.Show(Me.Test(CInt(TextBox1.Text)).Name)
    End Sub
End Class

Public Class Verein
    Implements INotifyPropertyChanged
    Public Event PropertyChanged(ByVal sender As Object, ByVal e As _
      PropertyChangedEventArgs) Implements _
      INotifyPropertyChanged.PropertyChanged
 
    Private mName As String
 
    Public Property Name() As String
        Get
            Return mName
        End Get
        Set(ByVal value As String)
            mName = value
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs("Name"))
        End Set
    End Property
 
    Public Sub New() 'Standardkonstruktor
    End Sub
 
    Public Sub New(ByVal n As String) 'Überladener Konstruktor
        Me.Name = n
    End Sub
End Class