Get System References At Runtime

[Jumpercables]

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

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