Friend Class Form1
    Dim Test(5) As 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
            Test(i) = New Verein
        Next
        Me.Test(0).Name = "Jesus lebt!"
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim myForm2 As New Form2()
        For i As Integer = 0 To 5
            myForm2.Test(i) = New Verein
        Next i
        myForm2.Show()
    End Sub
End Class

Friend Class Form2
    Public Test(5) As Verein
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        MessageBox.Show(Me.Test(0).Name)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        MessageBox.Show(Me.Test(0).Name)
    End Sub
End Class