MSScriptControl - проблема с AddCode

[djalex777]

При вызове метода AddCode MSScriptControl сразу же исполняется, хотя судя по документации не должен:

Код: Выделить всё

...
Set Script = New ScriptControl
Script.Language = "vbscript"

s = "msgbox true"
Script.AddCode s

...


Результатом этого кода будет вывод на экран MsgBox. Но мне нужно только загрузить код не выполняя его. Что не так делаю? Как сделать правильно?

[Debugger]

"Sub Main
Msgbox true
End Sub"
Вот тебе и все. Когда надо будет выполнить - вызовешь Main.

[djalex777]

Ага, спасибо. Разобрался. AddCode будет выполнять всё, что не находиться внутри Function или Sub.