Public Class Form1
 
 
 
    Public Structure TagStruct
        Dim Address As String
        Dim Symbol As String
        Dim Description As String
        Dim Type As String
    End Structure
    Public Structure PLCConfig
        Dim Tags() As TagStruct
    End Structure
 
    Dim PLC(10) As PLCConfig
    Dim ActivePLC As Integer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        FillWithDefaults()
        ActivePLC = 1
        DataGridView1.DataSource = PLC(ActivePLC).Tags
        DataGridView1.Update()
    End Sub
 
    Sub FillwithDefaults()
        For i = 0 To 10
            ReDim PLC(i).Tags(2)
            For j = 0 To 2
                PLC(i).Tags(j).Address = "Adresse" & j
                PLC(i).Tags(j).Symbol = "Symbol " & j
                PLC(i).Tags(j).Description = "Tag " & j
                PLC(i).Tags(j).Type = "Type " & j
            Next
        Next
    End Sub
 
End Class