PRB: MsgBox with Script Control Produces Run-Time Error 70

MORE INFORMATION

Active Scripting, which the script control enables, allows scripting host applications to turn off user interface access from scripts. The purpose of this feature is to prevent rogue scripts from subverting the host application or the operating system.

IMPORTANT: Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures.

Step-by-Step Example

1. In Visual Basic, create a new project (Form1 is created by default).
2. Click Components on the Project menu, and then select the "Microsoft Script Control 1.0" check box.
3. Add the Script control (ScriptControl1), a text box (Text1), and a command button (Command1) to Form1. Set the MultiLine property of the text box to TRUE.
4. Add the following code to Form1:

         Private Sub Command1_Click()
           On Error Resume Next
           With ScriptControl1
             .Language = "VBScript"
             .AllowUI = False
             .AddCode Text1.Text
             .Run "Hello"
           End With
           If Err Then MsgBox Err & " " & Error
         End Sub
   
   						

5. Run Form1, and open the Debug window.
6. Type the following script in the text box:

         Sub Hello()
           MsgBox "Hello World"
         End Sub
   
   						

7. Click the command button. As a result, the run-time error 70, "Permission Denied" appears.
8. In the Command1_Click, change:

             .AllowUI = False
   
   						

   to:

             .AllowUI = True
   
   						

9. Run Form1 again. The error message does not appear.