Private Sub server1_ItemSelectionChanged(ByVal sender As Object, ByVal e As _
    System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles _
    server1.ItemSelectionChanged
        Dim Index = e.Item.Index
    End Sub

--------------------
Theorie ist wenn man alles wei?, aber nichts funktioniert.
Praxis ist wenn alles funktioniert, aber niemand wei? warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand wei? warum.