如何用vb做word控件？请专家指教，俺特紧急

Question

我用pb的ole处理word文档不是很稳定，就想用vb做一个ocx控件或可视的dll，实现word文档的查看和激活及替换等若干函数。但是vb的ActiveX控件中不能放ole，它本身有无法显示word。用Delphi也遇到同样问题。我该怎么办呢？？快来救我吧！

Answer 1

Dim h As Long
        Set wd = Nothing
    
        Set wd = New Word.Application
         
   
    h = FindWindow("OpusApp", wd.Caption)
   
    SetParent h, Frame1.hWnd
    wd.Visible = True