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