Private Sub Form_Load()
Dim i As Integer
With ListView1
.View = lvwReport
.GridLines = True
.Checkboxes = True
.ColumnHeaders.Add , , "A"
.ColumnHeaders.Add , , "A*A"
.ColumnHeaders.Add , , "A*A*A"
For i = 1 To 10
.ListItems.Add i, , i
.ListItems(i).SubItems(1) = i ^ 2
.ListItems(i).SubItems(2) = i ^ 3
Next
End With
End Sub