List 7-180　FormBillフォームのForm_Resizeプロシージャ

---

  1： Private Sub Form_Resize()
  2：     ' ウィンドウサイズが変更されたときの処理
  3：     On Error Resume Next
  4：     
  5：     FRAME_NAVI.Top = 0
  6：     FRAME_NAVI.Left = 0
  7：     FRAME_NAVI.Width = FormBill.ScaleWidth
  8：     
  9：     DGrid_Bill.Left = 0
 10：     DGrid_Bill.Top = FRAME_NAVI.Height
 11：     DGrid_Bill.Height = FormBill.ScaleHeight - DGrid_Bill.Top
 12：     DGrid_Bill.Width = FormBill.ScaleWidth
 13： End Sub