Microsoft KB Archive/193036

= BUG: "On Error Resume Next" Enters Infinite Loop in Native Code =

Article ID: 193036

Article Last Modified on 5/12/2003

-

APPLIES TO


 * Microsoft Visual Basic 5.0 Learning Edition
 * Microsoft Visual Basic 6.0 Learning Edition
 * Microsoft Visual Basic 5.0 Professional Edition
 * Microsoft Visual Basic 6.0 Professional Edition
 * Microsoft Visual Basic 5.0 Enterprise Edition
 * Microsoft Visual Basic 6.0 Enterprise Edition

-



This article was previously published under Q193036



SYMPTOMS
After compiling to native code, a Visual Basic application using "On Error Resume Next" together with a For loop may sometimes enter an infinite loop when running as a standalone executable.



RESOLUTION
To work around this behavior, the code can be restructured. The code provided below resolves the problem for the code that reproduces this bug in the "Steps To Reproduce Behavior" section of this article: Public Sub Form_Load On Error Resume Next Dim x As Integer Dim z as integer Dim mArray as Variant z = UBound(mArray) For x = 0 To z           MsgBox "clear" Next x  End Sub



STATUS
Microsoft has confirmed this to be a bug in the Microsoft products listed at the beginning of this article.



Steps to Reproduce Behavior
 Create a standard EXE project in Visual Basic. Form1 is created by default.  Paste the following code into Form1: Public Sub Form_Load On Error Resume Next Dim x As Integer Dim mArray as Variant For x = 0 To UBound(mArray) MsgBox "Test" Next x     End Sub

 Select Properties from the Project menu. Under the Compile tab, select Compile to Native Code Run the project by pressing the F5 key. Note that the message box displays only once. Select Make Project1.exe to compile the project. Run the compiled executable.

Instead of displaying one message box, an endless number message boxes are displayed.

On Windows NT or Windows 2000, you can end this application through the Task Manager using the End Task button.

On Win95/98/Me, press the CTRL+ALT+DEL key combination and select the program. Press the End Task button to close the application.</li></ol>

Keywords: kbbug kbpending kbcompiler KB193036

-

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

© Microsoft Corporation. All rights reserved.