List 6-47　Customersコレクションの利用例

  1： Dim objCustomers As Customers
  2： Set objCustomers = New Customers
  3：     
  4： objCustomers.Add "ソフトバンクパブリッシング", _
   　                  "03-1234-5678", "03-1234-5679"
  5： objCustomers.Add "マイクロソフト", "03-2345-6789", _
   　                  "03-2345-6790"