PRB: Problem Adding Objects Created in VBA to SourceSafe

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a new database.
2. Create a module and type the following procedure to create a new form with a class module:

         Function ClickEventProcForm()
            Dim frm As Form, ctl As Control, mdl As Module
            Dim lngReturn As Long
            On Error GoTo Error_ClickEventProcForm
            Set frm = CreateForm
            Set ctl = CreateControl(frm.Name, acCommandButton, , , , 1000, _
               1000)
            ctl.Caption = "Click here"
            Set mdl = frm.Module
            lngReturn = mdl.CreateEventProc("Click", ctl.Name)
            mdl.InsertLines lngReturn + 1, vbTab & "MsgBox ""Way cool!"""
            DoCmd.Close acForm, frm.Name, acSaveYes
            ClickEventProcForm = True
         Exit_ClickEventProcForm:
            Exit Function
         Error_ClickEventProcForm:
            MsgBox Err & " :" & Err.Description
            ClickEventProcForm = False
            Resume Exit_ClickEventProcForm
         End Function
   						

3. Add the database to SourceSafe Source Code Control.
4. To test this function, type the following line in the Debug window, and then press ENTER.

         ?ClickEventProcForm()
   						

5. On the Tools menu, point to SourceSafe and then click Add Objects to SourceSafe. Note that you receive a message that there are no objects to add to the VSS database.
6. Close the database, and then reopen it.
7. On the Tools menu, point to SourceSafe and then click Add Objects to SourceSafe. Note that you can add Form1 to Source Code Control.