PRB: UserDocuments Can be Orphaned

MORE INFORMATION

Steps to Reproduce Behavior

1. Start a new instance of Visual Basic 6.0.
2. Select a UserDocument.exe as a project.
3. Add two additional UserDocuments and one module to the project.
4. Add one command button and two labels to each Document. A list of suggested captions for the controls follows:
   
   

   Document1

          Label1.Caption = "Hyperlink to UserDocument2"
          Label2.Caption = "Hyperlink to UserDocument3"
          Command1.Caption = "Get the magic number"
   						

   Document2

          Label1.Caption = "Hyperlink to UserDocument1"
          Label2.Caption = "Hyperlink to UserDocument3"
          Command1.Caption = "Get the magic number"
   						

   Document3

          Label1.Caption = "Hyperlink to UserDocument1"
          Label2.Caption = "Hyperlink to UserDocument2"
          Command1.Caption = "Get the magic number"
   						

5. Navigate to the module's code page window and declare a Global variable:
   
   

          Global Magic as Integer
   						

6. Navigate to Document1 and add the following in the UserDocument_Initialize event:
   
   

          MAGIC = 21
   						

7. In the command1_Click() event, add the following code:
   
   

          MSGBOX "The magic number is: " & MAGIC
   						

8. Rename project1 to something other than project1. Create a new folder for your project giving the folder the same name as the project.
9. Under each label in the Label_Click() event and the following code:
   
   

          UserDocument.Hyperlink.NavigateTo _<BR/>
          "Drive:\Directory\folder\UserDocument[X].vbd"<BR/>
          [X being the number it relative to the label caption document number]
   						

10. Create an .exe and place it in the folder.
11. Add the following code to UserDocument1's link to the second UserDocument:
    

           MSGBOX "Are you sure?"
    						

12. Create a second exe and place it on the desktop.
13. Delete all of the program files, created when the .exe was made from the desktop, except UserDocument1.
14. Double-click Internet Explorer. Drag and drop UserDocument1 from the desktop to the Internet Explorer window.