Private Sub ListBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Label1.Text = "" '先清空Label1
For Each s As String In ListBox1.SelectedItems '直接抓有選到的列出
Label1.Text &= s & vbCrLf '此處用vbCrLf分隔,輸出到Label1
Next
End Sub