Public oform1

oform1=Newobject("form1")
oform1.Show
oform1.OlewebBrowse.SetFocus

Return
Define Class form1 As Form
    Top = 0
    Left = 0
    Height = 700
    Width = 1024
    ShowWindow = 2
    DoCreate = .T.
    Caption = "Form1"
    WindowState = 2
    WindowType = 1
    Name = "form1"
    keypreview=.T.
    Add Object olewebbrowse As OleControl With ;
        Top = 6, ;
        Left = 5, ;
        Height = 800, ;
        Width = 1270, ;
        Name = "OleWebBrowse", ;
        OleClass = "Shell.Explorer.2", ;
        OleLCID = 1033

    Procedure olewebbrowse.Init
        *This.Navigate(SYS(5) + SYS(2003) + "/171.html")
       * This.Navigate("http://www.mem.)
       This.Navigate("D:\文档数据库\法规标准\标准规范\《放射治疗放射防护要求》解读.PDF")
      * This.Navigate("D:\文档数据库\法规标准\标准规范\(完整word版)《安全带》GB6095-2009.doc")        
    Endproc

Enddefine

大神，百度了一下，没有注册成功是因为，计算机权限的问题，win+X后，再注册即可成功了。
但是又来了新问题，我把软件打包后（包括这个OCX），在其他电脑安装运行时，程序仍然要求在该电脑上注册，这是为什么呢？如何处理啊？

找到了，https://bbs.