' Listing 13.1 13LIST01.TXT  -- Inicjalizacja Listy Wyboru

Private Sub Form_Load()
  List1.AddItem "Chicago"
  List1.AddItem "Dallas"
  List1.AddItem "Seattle"
  List1.AddItem "Washington"
  List1.AddItem "Houston"
  List1.AddItem "Dayton"
End Sub

