Microsoft KB Archive/113438

= FIX: Multiple CreateObject May Cause GP Fault in VBOA300.DLL =

Article ID: 113438

Article Last Modified on 1/8/2003

-

APPLIES TO


 * Microsoft Visual Basic 3.0 Professional Edition

-



This article was previously published under Q113438



SYMPTOMS
A general protection (GP) fault may result when working with OLE objects in Visual Basic if you repeatedly create new OLE objects.



CAUSE
When OLE objects are created with Visual Basic and that OLE object is subsequently set to Nothing, a hidden instance of the OLE application is spawned and then orphaned. This uses up system resources and eventually either the machine will hang (stop responding to input) or a GP fault will occur in VBOA300.DLL at 0001:0D03.



WORKAROUND
When you create OLE objects. Be sure to close or quit the OLE object before setting the variable to Nothing. Please see the example at the end of this article.



STATUS
Microsoft has confirmed this to be a bug in the Microsoft products listed at the beginning of this article. This problem has been corrected in Visual Basic version 4.0.



Steps to Reproduce Problem
 Start a new project in Visual Basic. Form1 is created by default. Add a command button (Command1) to the form.  Add the following code to the Command1_Click event: Sub Command1_Click Dim X As object Dim R As object Dim Iterations As Integer

While True Iterations = Iterations + 1 Debug.Print Iterations Set X = CreateObject("Excel.Sheet.5")

' Enter the following two lines as one, single line: Set R = X.Parent.Sheets(1).Range(X.Parent.Sheets(1).Cells(2, 2),           X.Parent.Sheets(1).Cells(52, 2))

Set R = Nothing Set X = Nothing Wend End Sub  Run the program.

When this code is run, the program will eventually produce a GP fault. Closing the WorkBook will not circumvent this problem. You must quit the application to avoid the GP fault.

Example Workaround
The following code will not produce a GP fault: Sub Command1_Click Dim X As object Dim R As object Dim Iterations As Integer

While True Iterations = Iterations + 1 Debug.Print Iterations Set X = CreateObject("Excel.Sheet.5")

' Enter the following two lines as one, single line: Set R = X.Parent.Sheets(1).Range(X.Parent.Sheets(1).Cells(2, 2),           X.Parent.Sheets(1).Cells(52, 2))

' The next line quits the application for an Excel object X.Application.Quit Set R = Nothing Set X = Nothing Wend End Sub

Additional query words: buglist3.00 GPF EXCEL 5.00 WINWORD 6.00 VBASIC 3.00 fixlist4.00

Keywords: kbbug kbfix KB113438

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.