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