List 7-22　FormSetGridフォームのBTN_OK_Clickプロシージャ

  1： Private Sub BTN_OK_Click()
  2：     ' ［OK］ボタンが押されたときの処理
  3：     Dim i As Long
  4：     
  5：     For i = 0 To LIST_GRIDCAPTION.ListCount - 1
  6：         g_objGrid.Columns(i).Visible = LIST_GRIDCAPTION.Selected(i)
  7：     Next
  8：     
  9：     g_objGrid.HoldFields
 10：     Set g_objGrid = Nothing
 11：     
 12：     Me.Hide
 13： End Sub