Private Sub UltraListView1_MouseMove(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) _
Handles UltraListView1.MouseMove
' マウス カーソルの下でサブアイテムへの参照を作成します。
Dim subItem As UltraListViewSubItem = _
Me.UltraListView1.SubItemFromPoint(New Point(e.X, e.Y))
' マウスが有効なサブアイテム上にあることを確認します。
If subItem IsNot Nothing Then
' すべてのアイテム(表示可能および表示可能でない)およびヘッダが列に収まるように
' サブアイテムの列をリサイズします。
Me.UltraListView1.SubItemColumns(subItem.Column.Index). _
PerformAutoResize(Infragistics.Win.UltraWinListView.ColumnAutoSizeMode.AllItemsAndHeader)
End If
End Sub