List 7-209　FormBillフォームのForm_UnLoadプロシージャ

---

  1： Private Sub Form_Unload(Cancel As Integer)
  2：     ' レジストリ情報を書き込む
  3：     Dim ColCount As Long, i As Long
  4：     
  5：     ColCount = DGrid_Bill.Columns.Count
  6：     SaveSetting App.title, "FormBill", "ColCount", ColCount
  7：     For i = 0 To ColCount - 1
  8：         SaveSetting App.title, "FormBill", _
   　                     "ColWidth" & i, DGrid_Bill.Columns(i).Width
  9：     Next
 10： End Sub