使用ScriptControl控件－报错

dhlhmgc

Dim $vba = ObjCreate("MSScriptControl.ScriptControl")
    $vba.Language = "VBScript"
    #$vba.AddObject "TheForm", Me = $obj
    $vba.AllowUI = True
        $vba.AddCode "Function AryFit(a(),s)" & @CRLF & _
                     "    AryFit = Filter(a,s,True,1)" & @CRLF & _
                     "End Function"

    Dim $c = $vba.Eval("1+1")

msgbox (0,"",$c)
#帮看一下哪里不对！
;=============
搞了半天原来是语法问题
VBS下的.adddcode 可不用括号，但AU3必须使用,解决方法为:
$vba.addcode ( $strCode )