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