vb与ole控件

Question

请参考：
http://expert.csdn.net/Expert/topic/1207/1207066.xml?temp=.9705622

Answer 1

打不开的http://expert.csdn.net/Expert/topic/1207/1207019.xml?temp=.9906427

Answer 2

各位自己的问题自己解决：结果如下：
  先插入一个picturebox，在picturebox中放一个ole 控件，在sizemode中设为
2-autosize。
然后写入下列代码：
   Private Sub HScroll1_Change()
    OLE1.Left = -HScroll1.Value
    End Sub
     
    Private Sub VScroll1_Change()
    OLE1.Top = -VScroll1.Value
    End Sub
     
    Private Sub Command1_Click()
    HScroll1.Value = 0
    VScroll1.Value = 0
    With OLE1
     .CreateLink ("c:\My Documents\111.dot") 
     HScroll1.Max = .Width - Picture1.Width + 20
     HScroll1.LargeChange = .Width / 10
     HScroll1.SmallChange = .Width / 20
     VScroll1.Max = .Height - Picture1.Height + 20
     VScroll1.LargeChange = .Height / 10
     VScroll1.SmallChange = .Height / 20
    End With
    End Sub
然后ok 了