PRB: OLE Servers Don't Unload When Last Object Set to Nothing

1. Begin with a minimal OLE server and client application. For information on how to do this, please see the following article in the Microsoft Knowledge Base:

   129801 How to Create and Use a Minimal OLE Automation Server

2. Add a form (Form1) to the OLE server.
3. Add a timer control (Timer1) to Form1.
4. Set the following properties:

      Object   Property    Value
      --------------------------
      Form1    Visible     False
      Timer1   Enabled     True
      Timer1   Internal    2000
   						

5. Add the following code to the Timer1_Timer event procedure:

      Private Sub Timer1_Timer ()
         Beep
      End Sub
   						

6. Add the following code to the General Declarations section of Class1:

      Dim frmX As New Form1
   						

7. Add the following line to the existing MyClass_Initialize event procedure:

      Load frmX
   						

8. Start the OLE server program by pressing the F5 key.
9. Minimize Visual Basic.
10. Start a second instance of Visual Basic.
11. Open (or create) the OLE client application described in Phase 2 of the article referenced in step 1.
12. Start the OLE client program running by pressing the F5 key.
13. Click Form1 of the OLE client program. The OLE server is created and begins beeping every two seconds.
14. Close the OLE client application. Notice that the OLE server continues to beep.

Steps to Resolve the Failure to Unload

   Private Sub MyClass_Terminate ()
      Unload frmX
   End Sub