Public Class Test
 
    Public Structure Spalte
        Public Width As Integer
        Public HeaderText As String
        Public Text As List(Of String)
    End Structure
 
    Private Spalten As New List(Of Spalte)
 
    Private Sub test()
        Dim it As Spalte
        Spalten.Add(it)
        Spalten(0).HeaderText = "jjj"
    End Sub

Gru?

Silver