请教HScrollBar的问题。。。。

Question

在窗体内有个ole控件，用来预览的,但是现在要我加2个HScrollBar，使图片一类的加入ole控件后，可以拖动HScrollBar控件来预览。（因为有的图片什么的比OLE控件大）
怎么写HScrollBar的控制语句，谢谢帮忙

Answer 1

下面添加的是内部的滚动条，不需要语句控制Private Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long
  ShowScrollBar UpdText.hwnd, 0, true      '显示水平滚动条
 ShowScrollBar UpdText.hwnd, 1, true      '显示垂直滚动条