Private Sub List1_Click()
  Dim i as long
  For i = 1 To List1.ListCount - 1
    If List1.Selected(i) = True Then
      Label1.Caption = List1.List(i)
    End If
  Next
End Sub

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)