Option ExplicitPrivate Sub Form_Load()
    ListView1.View = lvwReport
    ListView1.ListItems.Add , , 1
    ListView1.ListItems.Add , , 2
    ListView1.ListItems.Add , , 3
    ListView1.ListItems(2).Selected = True
End Sub