Private Sub Command_Click()
  Dim tapp As TLI.TLIApplication, tlib As TLI.TypeLibInfo
  Dim tinfo As TLI.TypeInfo, minfo As TLI.MemberInfo
  Set tapp = New TLI.TLIApplication
  Set tlib = tapp.TypeLibInfoFromFile("C:\Project\Test.dll")
  For Each tinfo In tlib.TypeInfos
  Debug.Print "==============================================="
    If tinfo.TypeKind = TKIND_RECORD Then
      Debug.Print tinfo.Name
      For Each minfo In tinfo.Members
        Debug.Print minfo.Name & " ";
        Debug.Print minfo.ReturnType.VarType
      Next
    End If
  Next
End Sub