Imports Infragistics.Win
Imports Infragistics.Win.UltraWinListView
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '	Set the TextAreaAlignment so that the item values appear on top of the image
        Me.ultraListView1.ViewSettingsIcons.TextAreaAlignment = TextAreaAlignment.Top
        '	Allow only 1 line of text to display the item's Value,
        '	so that icons are aligned vertically
        Me.ultraListView1.ViewSettingsIcons.MaxLines = 1
        '	Set the Alignment property of the ViewSettingsIcons to 'TopToBottom'
        Me.ultraListView1.ViewSettingsIcons.Alignment = ItemAlignment.TopToBottom
        '	Increase the width of the item size by 10 pixels
        Dim itemSize As Size = Me.ultraListView1.ItemSizeResolved
        itemSize.Width += 10
        Me.ultraListView1.ViewSettingsIcons.ItemSize = itemSize
        '	Add some vertical space between the icon rows
        Me.ultraListView1.ViewSettingsIcons.Spacing = New Size(1, 10)
	End Sub