List 7-63　FormProductフォームの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 = FormProduct.ScaleWidth
  8：     
  9：     DGrid_Product.Left = 0
 10：     DGrid_Product.Top = FRAME_NAVI.Height
 11：     DGrid_Product.Height = FormProduct.ScaleHeight - DGrid_Product.Top
 12：     DGrid_Product.Width = FormProduct.ScaleWidth
 13： End Sub