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