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

• Microsoft Visual Basic Learning, Professional, and Enterprise Editions for Windows, versions 5.0, 6.0
• Microsoft Visual Basic Standard, Professional, and Enterprise Editions, 32-bit only, for Windows, version 4.0
• Microsoft Visual Basic for Applications version 5.0

SYMPTOMS

When you run a script in an application that hosts the Microsoft Script control, MsgBox causes the following error message to appear:

Run-time error #70:
Permission Denied

CAUSE

The AllowUI property of the control is FALSE.

RESOLUTION

Set the AllowUI property of the script control to TRUE either through code at run time or through the property sheet at design time.

STATUS

This behavior is by design.

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.

REFERENCES

For information about obtaining the Script control, please see the following article in the Microsoft Knowledge Base:

Q184739 : FILE: Script Control

Additional query words: kbScript kbCtrl kbvba500 kbVBp400 kbVBp500 kbVBp600 kbVBp kbdsd
kbDSupport

Keywords : kbCtrl kbScript kbGrpVB
Version :
Platform : WINDOWS
Issue type : kbprb