Friend Function GetAlternateColumnName(PropertyName as String) as String
Get GetAlternateColumnName= ""
   try
      Select Case PropertyName
         Case = "Index": GetAlternateColumnName = "ID"
      End Select
 
   Catch ex as Exeption
 
   End Try
 
 
End Function

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