Get System References At Runtime

I have done this before but it was done in access using a Reference object. Is there anything like this in VB6? I am trying to get a list of all the object references that are being use for the running application.


VBA Code to get references

VB Code:

Dim strMessage As String
   Dim strTitle As String
   Dim refItem As Reference
   Dim strdisplaymsg As String
 
   On Error Resume Next
   strdisplaymsg = " "
   For Each refItem In References
      If refItem.IsBroken Then
         strMessage = "Missing Reference:" & vbCrLf & refItem.FullPath
         strdisplaymsg = strdisplaymsg & strMessage & vbCrLf
      Else
         strMessage = "Reference: " & refItem.Name & vbCrLf _
            & "Location: " & refItem.FullPath & vbCrLf
         strdisplaymsg = strdisplaymsg & strMessage & vbCrLf
      End If
      Debug.Print strMessage
   Next refItem
   MsgBox strdisplaymsg, vbOKOnly, "Reference Info