List 7-40　FormPrintPreviewフォームのVScroll_Changeプロシージャ

---

  1： Private Sub VScroll_Change()
  2：     ' 垂直スクロールバーの位置が変更されたときの処理
  3：     PicDoc.Top = -VScroll.Value
  4： End Sub