List 7-9　FormCustomerフォームのBTN_NEW_Clickプロシージャ

---

  1： Private Sub BTN_NEW_Click()
  2：     ' ［新規］ボタンが押されたときの処理
  3：     
  4：     FormEditCustomer.NewCustomer
  5：     FormEditCustomer.Show 1
  6： End Sub