[求助]请帮我把两句LISP代码改为VBA代码

jxlsp

请帮我把下面两句LISP代码改为VBA代码 呀,不胜感谢.

(也就是加载vbmp.dll并运行showbmp.vbmpApp类里的vbmp)

(setq rndobj (vlax-create-object "showbmp.vbmpApp"))
(vlax-invoke-method rndobj "vbmp" (vla-get-ActiveDocument (vlax-get-acad-object)))

王咣生

不知道这样行不行(首先要保证vbmp.dll已经注册了)

Sub test()
    Dim obj As Object
    Set obj = CreateObject("showbmp.vbmpApp")
    obj.vbmp
End Sub