Private Sub ListView1_SelectedIndexChanged_UsingItems _
     (ByVal sender As Object, ByVal e As System.EventArgs) _
     Handles ListView1.SelectedIndexChanged
 
     If ListView1.SelectedIndices.Count > 0 Then
         Label1.Text = ListView1.SelectedItems(0).Text
     End If
End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.