Public Class Form1
  Dim testTbl As List(Of DataGridView)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
 
  testTbl = New List(Of DataGridView)
 
  testTbl.Add(New DataGridView)
  testTbl.Add(New DataGridView)
  testTbl.Add(New DataGridView)
  testTbl.Add(New DataGridView)
  testTbl.Add(New DataGridView)
 
  Dim zaehler As Integer = -1
  For Each tt As DataGridView In testTbl
 
    zaehler += 1
    tt.RowCount = 10
    tt.ColumnCount = 20
    tt.Item(0, 0).Value = zaehler
 
  Next
 
  ' 4. DataGrid, einen Wert anzeigen
  Debug.Print(testTbl.Item(3).Item(0, 0).Value)
 
  testTbl.Remove(testTbl.Item(3))
 
  ' 4. DataGrid, einen Wert anzeigen --> ist jetzt das vorher 5. DataGrid
  Debug.Print(testTbl.Item(3).Item(0, 0).Value)
 
  ' jetzt eine DataGridView weniger
  For Each tt As DataGridView In testTbl
 
    Debug.Print(tt.Item(0, 0).Value)
 
  Next
 
End Sub
 
End Class