Public Class Files
Private _Index As Integer
    Public Property Index() As Integer
        Get
            Return _Index
        End Get
        Set(ByVal value As Integer)
            _Index = value
        End Set
    End Property
 
Friend Function SetValue(PropertyName As String, Value as String) as Boolean
SetValue = false
try
 
    Select Case PropertyName
       Case = "Index": Index = Value
    End Select
SetValue = True
Catch ex as Exeption
Set Value = false
End Try
 
Return SetValue 
End Function
 
 
Friend Function GetValue (PropertyName as String) as String
   GetValue = ""
   try
      Select Case PropertyName
         Case = "Index": GetValue = Index
      End Select
 
   Catch ex as Exeption
 
   End Try
   Return GetValue
End Function
 
 
 
 
 
End Class

 
' Klasse Instanzieren
Friend File() as Files
Friend FileCounter as Integer = 0
 
 
'Befor ein neuer Datensatz eingeschrieben werden kann muss der Konstruktor 
' aufgerufen werden.
Redim Preserve File(FileCounter)
File(FileCounter) = new Files '(Hier habe ich in der Klasse auf den Konstruktor 
' ein erstellen einer 'Automatischen ID Funktion verwiesen diese erstellt _
Anhand des "FileCounter" eine fortlaufende 'Nummerierung.
 
'Dann kann man Daten in die Klasse Einschreiben
File(FileCounter).Index = "fil_:" & SetNewID(FileCounter)
FileCounter +=1
 
' Ich kann noch ganz andere File-Klassen Elemente erstellen und Sie mit den 
' Daten füllen. Doch dies 'hier soll nur ein kleines Beispiel sein wie meine _
Grundlagen sind. Den ganzen Code zu posten wäre 'zu aufwendig

 
   Dim FileColumn as new Files
   For each PropertyFile as PropertyInfo in FileColumn.GetType.GetProperties
       Try
          ListView1.Columns.add(PropertyFile.Name)
       Catch ex as Exeption
 
       End Try
 
   Next