新建From1（窗体），新建Command1（按钮CommandButton），代码：

Private Sub Command1_Click()
    Dim rc As Double
    rc = Shell("regsvr32 MYpath\MYany.ocx", vbNormalFocus)
End Sub