Dim ListViewItemArray(UBound(ReadedTxt) - 1) As ListView.ListViewItemCollection 'アイテムをコレクションに追加します。 Dim Into As String() = {str(0), str(1) } For i = 0 To UBound(ReadedTxt) - 1 ListViewItemArray(i).Add(New ListViewItem(Into)) '(省略) 'ListViewに追加します Object_To.Items.AddRange(ListViewItemArray) '※1