List 7-167　FormSlipDetailフォームのForm_Resizeプロシージャ

---

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