VB6のコントロール「Microsoft ListView Control 6.0」を使う場合のことかな？
指定の項目を画面に表示させたいならEnsureVisible()を使う

Private Sub CommandButton1_Click()
With ListView1
　　With .ListItems(40)
　　　　Call .EnsureVisible
　　　　'.Selected = True
　　End With
　　'Call .SelectedItem.EnsureVisible
End With
End Sub