Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
ListBox1.Items.Add("A") '增加Items
ListBox1.Items.Add("B")
ListBox1.Items.Add("C")
'Getting All Items
Dim sb As New System.Text.StringBuilder
For Each item In ListBox1.Items
sb.Append(item)
sb.Append(" ")
Next
MessageBox.Show(sb.ToString())
End Sub