Добавление нескольких элементов в ListBox

ListBox1.Items.Add("1" & "2")

ListBox1.Items.Add("1")
ListBox1.Items.Add("2")

ListBox1.Items.AddRange(New String() {1, 2, 58, 7, 5, 447})

Dim a As String = ""
        a = "1" & "2"

        ListBox1.Items.AddRange(MassIf)

Dim a As String = ""
        a = "1" & "2"

Dim a As String = ""
        a = "1" & "2"

        Dim a As String = "052148796"
        For Each Ch As Char In a
            ListBox1.Items.Add(Ch)
        Next

Dim a As String = "052148796"

Dim a As String = "052" & "1"

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim ss As String = ""
        For Each pr As Process In Process.GetProcesses
            If pr.MainWindowTitle.Length > 0 Then
                ss &= "Программа: " & pr.MainWindowTitle & vbCrLf
            Else
                ss &= "Процесс: " & pr.ProcessName & vbCrLf
            End If
        Next
        TextBox1.Text = ss
        ListBox1.Items.Add(ss)
    End Sub

For Each pro As Process In Process.GetProcesses
            ListBox1.Items.Add(pro.ProcessName)
        Next

ListBox1.Items.AddRange(ss.Split(New String() {vbCrLf}, StringSplitOptions.RemoveEmptyEntries))