Private Sub List1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles List2.Click
        Dim enumerator As IEnumerator = List2.SelectedItems.GetEnumerator()
        Do While enumerator.MoveNext
            Text1.Text = enumerator.Current.ToString
        Loop
    End Sub

Sprache: VB.NET 4.0
Entwicklungsumgebung: VS 2010
Betriebssystem: Windows 7