List 7-16　変更したFormEditCustomerフォームのNewCustomerプロシージャ（変更箇所は赤色で示した）

  1： Public Sub NewCustomer()
  2：     ' 新規顧客を登録する
  3：     
  4：     TXT_ID.Text = ""
  5：     TXT_YOMIGANA.Text = ""
  6：     TXT_CUSTOMERNAME.Text = ""
  7：     TXT_ZIP.Text = ""
  8：     TXT_ADDRESS.Text = ""
  9：     TXT_TELEPHONE.Text = ""
 10：     TXT_FAX.Text = ""
 11：     TXT_MEMO.Text = ""
 12：     TXT_BILLDAY.Text = ""
 13：     TXT_MADEUSER.Text = ""
 14：     TXT_MADEDATE.Text = ""
 15：     TXT_LASTUSER.Text = ""
 16：     TXT_LASTDATE.Text = ""
 17：     CustomerID = -1
 18： End Sub