Private Sub Form_Load()
    
    Dim SC As ScriptControl
    Dim m As Module
    Dim 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; }"
        
    For Each m In SC.Modules
        For Each f In m.Procedures
            Debug.Print m.Name & "." & f.Name & "( args = " & f.NumArgs & ")"
        Next
    Next
    
End Sub