FIX: Error When Closing a Program Through the Control Box (143046)

MORE INFORMATION

Steps to Reproduce Issue

1. Start the 32-bit version of Visual Basic 4.0 or if it is already running, click New Project on the File menu.
2. Use the following steps to create a class module.
   1. Click Class Module on the Insert Menu. The code window for the class module appears.
   2. In the Properties window of the Class1 class module, set the Instancing Property to 2-Createable MultiUse, and the Public property to True.
   3. Add the following code to the Class1 code window:

            Option Explicit
            Public Name As String
      
            Private Sub Class_Terminate()
               Form1.Print Name
            End Sub
         
      						

3. Add the following code to the Form1 code window.

         Option Explicit
         Public A As New Class1
   
         Private Sub Form_Load()
            Show
            Set A = New Class1
            A.Name = "A"
   
            'To workaround this bug, cut the next line
            Set A = Nothing
   
            Print "A Is " & IIf(A Is Nothing, "Nothing", "Something")
            'And uncomment this next line.
            'Set A = Nothing
         End Sub
   
   					

4. Press the F5 key or click Start on the Run menu to run the program.
5. Click Close from the Control Bar menu on the form. One of the following application error displays and Visual Basic ends: