List 7-41　FormPrintPreviewフォームのHScroll_Changeプロシージャ

---

  1： Private Sub HScroll_Change()
  2：     ' 水平スクロールバーの位置が変更されたときの処理
  3：     PicDoc.Left = -HScroll.Value
  4： End Sub