ListView1.View = System.Windows.Forms.ListView.View.Tile

    Public Shared Sub main()
        Application.EnableVisualStyles()
        System.Windows.Forms.Application.Run(New Form1)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Application.EnableVisualStyles()
        ' Initialize myListView.
        Dim myListView As New ListView
        myListView.Dock = DockStyle.Fill
        myListView.View = System.Windows.Forms.ListView.View.Tile

        ' Initialize the tile size.
        myListView.TileSize = New Size(400, 45)

        ' Initialize the item icons.
        Dim myImageList
        myImageList = New ImageList
        Dim myIcon As Icon = New Icon("book.ico")
        Try
            myImageList.Images.Add(myIcon)
        Finally
            myIcon.Dispose()
        End Try
        myIcon.Dispose()
        myImageList.ImageSize = New Size(32, 32)
        myListView.LargeImageList = myImageList

        ' Add column headers so the subitems will appear.
        myListView.Columns.AddRange(New ColumnHeader() _
            {New ColumnHeader, New ColumnHeader, New ColumnHeader})

        ' Create items and add them to myListView.
        Dim item0 As New ListViewItem(New String() _
            {"Programming Windows", _
            "Petzold, Charles", _
            "1998"}, 0)
        Dim item1 As New ListViewItem(New String() _
            {"Code: The Hidden Language of Computer Hardware and Software", _
            "Petzold, Charles", _
            "2000"}, 0)
        Dim item2 As New ListViewItem(New String() _
            {"Programming Windows with C#", _
            "Petzold, Charles", _
            "2001"}, 0)
        Dim item3 As New ListViewItem(New String() _
            {"Coding Techniques for Microsoft Visual Basic .NET", _
            "Connell, John", _
            "2001"}, 0)
        Dim item4 As New ListViewItem(New String() _
            {"C# for Java Developers", _
            "Jones, Allen / Freeman, Adam", _
            "2002"}, 0)
        Dim item5 As New ListViewItem(New String() _
            {"Microsoft .NET XML Web Services Step by Step", _
            "Jones, Allen / Freeman, Adam", _
            "2002"}, 0)
        myListView.Items.AddRange( _
            New ListViewItem() {item0, item1, item2, item3, item4, item5})

        ' Initialize the form.
        Me.Controls.Add(myListView)
        Me.Size = New System.Drawing.Size(430, 500)
        Me.Text = "ListView Tiling Example"
    End Sub