Dim ar As List(Of Header)

ar = New List(Of Header)
ar.Add(New Header("Name", "Otter"))

Public Function GetIndex(ByVal ar As List(Of Header), ByVal fName As String) As _
  Integer
  Dim GotIt As Boolean = False
  Dim i As Integer
 
  For i = 0 To ar.Count - 1
    If ar.Item(i).Feldname.Trim.ToLower = fName.Trim.ToLower Then
      GotIt = True
      Exit For
    End If
  Next
  If GotIt = False Then
    ar.Add(New Header(fName, ""))
    i = ar.Count - 1
  End If
  Return i
End Function

Public Class Header
  Private _Feldname As String
  Private _Feldwert As String
 
  Public Sub New()
  End Sub
 
  Public Sub New(ByVal Feldname As String, ByVal Feldwert As String)
    _Feldname = Feldname
    _Feldwert = Feldwert
  End Sub
 
  Public Property Feldname() As String
    Get
      Return _Feldname
    End Get
    Set(ByVal value As String)
      _Feldname = value
    End Set
  End Property
 
  Public Property Feldwert() As String
    Get
      Return _Feldwert
    End Get
    Set(ByVal value As String)
      _Feldwert = value
    End Set
  End Property
End Class

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de