PrivateSub Form_Load()
Dim SC As ScriptControl
Dim m AsModuleDim f As Procedure
Set SC = New ScriptControl
SC.Language = "JavaScript"
SC.AllowUI = True
SC.SitehWnd = Me.hWnd
SC.UseSafeSubset = False
SC.Timeout = 60
SC.AddCode "function foo(a,b,c){ return a+b+c; }"Set m = SC.Modules("GlobalModule")
m.AddCode "function goo(a,b,c){ return a+b+c; }"Set f = m.Procedures.Item(1)
Set f = m.Procedures("goo")
ForEach m In SC.Modules
ForEach f In m.Procedures
Debug.Print m.Name & "." & f.Name & "( args = " & f.NumArgs & ")"NextNextEnd Sub