Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle "Db1DataSet.adm". Sie 
        ' können sie bei Bedarf verschieben oder entfernen.
        Me.AdmTableAdapter.Fill(Me.Db1DataSet.adm)
  End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal _
  e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        If ListBox1.SelectedIndex <> -1 Then
            Dim a As String = ListBox1.Text
            ListBox2.Items.Add(a)
            'ListBox1.DataSource.ToString.Remove(a)   
        End If
    End Sub

blutiger anf?nger
ich weiss was ich will
aber eben nicht wie es geht