List 6-46　作成したCustomerクラスの利用例

  1： Dim objCustomer As Customer
  2： Set objCustomer = New Customer
  3： objCustomer.CUSTOMERNAME = "ソフトバンクパブリッシング"
  4： objCustomer.TELEPHONE = "03-1234-5678"
  5： objCustomer.FAX = "03-1234-5679"