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