List 7-21　FormSetGridフォームのSetColumnプロシージャ

---

  1： Dim g_objGrid As DataGrid
  2： 
  3： Public Sub SetColumn(ByRef objGrid As DataGrid)
  4：     ' DataGridオブジェクトの表示項目をリストボックスに設定する
  5：     Dim i As Long
  6：     
  7：     LIST_GRIDCAPTION.Clear
  8：     
  9：     For i = 0 To objGrid.Columns.Count - 1
 10：         LIST_GRIDCAPTION.AddItem objGrid.Columns(i).Caption
 11：         LIST_GRIDCAPTION.Selected(LIST_GRIDCAPTION.NewIndex) = _
   　              objGrid.Columns(i).Visible
 12：     Next
 13： 
 14：     Set g_objGrid = objGrid
 15： End Sub