listview, el evento SelectedIndexChanged y una solucion extraña.

[turbo]

con el control de si tiene elementos tambien me daba error, yo cree una applicacion con un listview y con vatios elementos y me puse a probar

Public Sub ListaClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView2.Click
If Me.ListView2.Items.Count <= 0 Then Exit Sub
PosLista = CInt(Me.ListView2.FocusedItem.Index)
MiTextBox1.Text = ListView2.FocusedItem.SubItems(3).Text()
End Sub

Private Sub ListaSelec_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView2.SelectedIndexChanged
If Me.ListView2.Items.Count <= 0 Then Exit Sub
On Error GoTo salir
PosLista = CInt(Me.ListView2.FocusedItem.Index)
MiTextBox1.Text = ListView2.FocusedItem.SubItems(3).Text()
salir:
Beep()
End Sub
en fin esta es la solucion que encontre y funciona Ok

saludos.