誰か試してくれ
フォームにListViewだけ貼り付けて
これをコピペすればいいから
Private Sub Form_Load()
Dim i As Long
ListView1.FullRowSelect = True
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add = "Left"
ListView1.ColumnHeaders(1).Alignment = lvwColumnLeft
ListView1.ColumnHeaders.Add = "Right"
ListView1.ColumnHeaders(2).Alignment = lvwColumnRight
ListView1.ColumnHeaders.Add = "Center"
ListView1.ColumnHeaders(3).Alignment = lvwColumnCenter
For i = 1 To 5
ListView1.ListItems.Add = "test" & CStr(i)
Next i
End Sub