Dim liste1, liste2, liste3, liste4 As New List(Of String)

Private Sub Form1_Load(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles MyBase.Load
  With liste1
    liste1.Add("eins")
    liste1.Add("zwei")
    liste1.Add("drei")
  End With

  With liste2
    liste2.Add("vier")
    liste2.Add("fünf")
    liste2.Add("sechs")
  End With

  With liste3
    liste3.Add("sieben")
    liste3.Add("acht")
    liste3.Add("neun")
  End With

  ListBox1.DataSource = liste1
  ListBox2.DataSource = liste2
  ListBox3.DataSource = liste3
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles Button1.Click
  liste4.AddRange(liste1)
  liste4.AddRange(liste2)
  liste4.AddRange(liste3)
  ListBox4.DataSource = liste4
End Sub