List 7-5　FormCustomerフォームのForm_Resizeプロシージャ

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