Dim i As Integer
	Dim DetailsList As ListView = listView1'// Faulheit )
	Dim Title, Author, Manufacturer, ReleaseDate, ImageUrlLarge, URL As String
 
	DetailsList.Columns.Add("Spalte 1", 200,200)
	DetailsList.Columns.Add("Spalte 2", 200,200)
	DetailsList.Columns.Add("Spalte 3", 200,200)
	DetailsList.Columns.Add("Spalte 4", 200,200)
	DetailsList.Columns.Add("Spalte 5", 200,200)
	DetailsList.Columns.Add("Spalte 6", 200,200)
	DetailsList.View = System.Windows.Forms.View.Details 
 
	Title = "Title"
       	Author = "Author"
        Manufacturer = "Manufacturer"
        ReleaseDate = "ReleaseDate"
        ImageUrlLarge = "ImageUrlLarge"
        URL = "URL"
        i = 0
        For i = 0 To 5
            DetailsList.Items.Add(Title)
            DetailsList.Items(i).SubItems.Add(Author)
            DetailsList.Items(i).SubItems.Add(Manufacturer)
            DetailsList.Items(i).SubItems.Add(ReleaseDate)
            DetailsList.Items(i).SubItems.Add(ImageUrlLarge)
            DetailsList.Items(i).SubItems.Add(URL)
        Next