Private Sub Form_Load()
listeigenschaft.additem ("Europa")
End Sub
 
Private Sub listeigenschaft_Click()
eigenschaft  = listeigenschaft.ListIndex
Select Case eigenschaft
Case  0: ???????? (weiter bin ich nicht gekommen, wenn ich jetzt hier _
  listeigenschaft1.additem ("Deutschland") eingebe erscheint es in der zweiten _
  Listbox aber ich will ja auch noch Frankreich dazubekommen mit and _
  bringt er mir ein Fehler)