FIX: Unload in 3D GroupPush Button Causes GP Fault

MORE INFORMATION

Steps to Reproduce Problem

1. Start Visual Basic or from the File menu, choose New Project (ALT, F, N) if Visual Basic is already running. Form1 is created by default.
2. From the File menu, choose Add File. In the Files box, select the THREED.VBX custom control file. The six 3D controls appear in the Toolbox. Add Form2 to the project by choosing New Form from the File menu.
3. Select the GroupPush3D button tool (with the letters R and B on it) from the Toolbox, and draw it on Form1.
4. Next double-click or press F7 to get to the GroupPush3D1_Click event procedure. Place the following code in this event procedure:

      Sub GroupPush3D1_Click (Value As Integer)
         Unload Form1      '** result in 3.0, GPF 001D:09C0
         Form2.Show        '** result in 2.0, GPF 003B:09AB
                           '** result in 1.0, GPF 0057:0040
   
         '** Or
         '** Form2.Show    '** result in 3.0, GPF 001D:09BD
         '** Unload Form1  '** result in 2.0, GPF 003B:09A8
                           '** result in 1.0, GPF 005C:0629
      End Sub
   						

5. To run the example, click the Play button, press the F5 key, or choose Start from the Run menu. Then click the GroupPush3D button. If you get an error, choose the close button, this will result in a GP fault at a specific address.