Public Class frmXXX
 
    Public Class TagClass
        Implements System.ComponentModel.INotifyPropertyChanged
 
        Dim mAddress As String
 
        Property Address As String
            Set(value As String)
                mAddress = value
                RaiseEvent PropertyChanged(Me, _
                New System.ComponentModel.PropertyChangedEventArgs("Address"))
            End Set
            Get
                Return mAddress
            End Get
        End Property
 
        'Properties entsprechend erweitern (s.o.)
        Property Symbol As String
        Property Description As String
        Property Type As String
 
        Public Event PropertyChanged(sender As Object, _
           e As System.ComponentModel.PropertyChangedEventArgs) _
           Implements _
           System.ComponentModel.INotifyPropertyChanged.PropertyChanged
    End Class
 
 
    Public Structure PLCConfig
        Dim Tags() As TagClass
    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()
        Dim i, j As Integer
        For i = 0 To 10
            Array.Resize(PLC(i).Tags, 3)
            For j = 0 To 2
                PLC(i).Tags(j) = New TagClass
                PLC(i).Tags(j).Address = "Adresse" & j.ToString
                PLC(i).Tags(j).Symbol = "Symbol " & CStr(j)
                PLC(i).Tags(j).Description = "Tag " & j '(s.o.)
                PLC(i).Tags(j).Type = "Type " & j '(s.o.)
            Next j
        Next i
    End Sub
End Class