List 7-33　修正したFormCustomerフォームのBTN_VIEW_Clickプロシージャ（変更部分は赤色で示した）

  1： Private Sub BTN_VIEW_Click()
  2：     ' ［表示項目］ボタンが押されたときの処理
  3：     
  4：     FormSetGrid.SetColumn DGrid_Customer
  5：     FormSetGrid.Show 1
  6：     ' ComboBoxにデータグリッドコントロール内の列名を移す
  7：     SetFieldList
  8： End Sub