List 6-14　指定した顧客番号の顧客情報を取得するメソッド

  1： Sub GetCustomer(ByVal ID As Long, _
   　                 ByRef NAME As Variant, ByRef YOMIGANA As Variant, _
   　                 ByRef ZIP As Variant, ByRef ADDRESS As Variant, _
   　                 ByRef TELEPHONE As Variant, ByRef FAX As Variant, _
   　                 ByRef BILLDAY As Variant, ByRef MEMO As Variant, _
   　                 ByRef MADEUSER As Variant, ByRef MADEDATE As Variant, _
   　                 ByRef LASTUSER As Variant, ByRef LASTDATE As Variant)
  2：     ' IDで指定された顧客番号の顧客の，
  3：     '    顧客名をNAMEに，よみがなをYOMIGANAに
  4：     '    郵便番号をZIPに，住所をADDRESSに
  5：     '    電話番号をTELEPHONEに，FAX番号をFAXに
  6：     '    締め日をBILLDAYに，摘要をMEMOに
  7：     '    作成者をMADEUSERに，作成日をMADEDATEに
  8：     '    最終更新者をLASTUSERに，最終更新日をLASTDATEに
  9：     ' 返すメソッド
 10： End Sub