高手帮忙，！

Question

Open TempDir & "\aImageForm.ocx" For Binary Access Write As #4
Put #4, , tempfile
Close #4我想注册控件的时候提示  “拒绝权限”
急，有什么办办法可解决！

Answer 1

shell "regsvr32 " & TempDir & "\aImageForm.ocx"

Answer 2

我忘了还有一句代码，是这样的！ 
tempfile = LoadResData(103, "ocx") '注册控件
Open TempDir & "\aImageForm.ocx" For Binary Access Write As #4
Put #4, , tempfile
Close #4
Shell "regsvr32 " & TempDir & "\aImageForm.ocx /s", vbNormalFocus '注册控件