Visual Basic - como selecciono en codigo varias lineas en listvie

buen dia amigos tengo un listview y necesito al darle click a un boton que me seleccione las 5 primeras lineas del listview o las lineas que quiera

mil gracias por su ayuda

Dim i As Integer
Dim ITEM As ListItem
For i = Cupo To 1 Step -1
'-> Cupo
Set ITEM = LV.ListItems.Add(, , i)
'-> Ingreso
ITEM.SubItems(1) = Ingreso * i
'-> Costo
ITEM.SubItems(2) = Round(CostoInd * i + (CostoGrup * Cupo))
'-> Utilidad
ITEM.SubItems(3) = Val(ITEM.SubItems(1)) - Val(ITEM.SubItems(2))
If Val(ITEM.SubItems(3)) > 0 Then
ITEM.Selected = True
ITEM.Bold = True
ITEM.ForeColor = &HC00000
ITEM.ListSubItems(1).Bold = True
ITEM.ListSubItems(1).ForeColor = &HC00000
ITEM.ListSubItems(2).Bold = True
ITEM.ListSubItems(2).ForeColor = &HC00000
ITEM.ListSubItems(3).Bold = True
ITEM.ListSubItems(3).ForeColor = &HC00000
Else
ITEM.Bold = True
ITEM.ForeColor = &HFF&
ITEM.ListSubItems(1).Bold = True
ITEM.ListSubItems(1).ForeColor = &HFF&
ITEM.ListSubItems(2).Bold = True
ITEM.ListSubItems(2).ForeColor = &HFF&
ITEM.ListSubItems(3).Bold = True
ITEM.ListSubItems(3).ForeColor = &HFF&

End If
Next