Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles Button1.Click
		Dim j As Integer
 
		j = Me.ListView1.FocusedItem.Index
 
		MsgBox(j)
	End Sub

Private Sub ListView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles ListView1.SelectedIndexChanged
		Dim j As Integer
 
		j = Me.ListView1.FocusedItem.Index
 
		MsgBox(j)
	End Sub