BUG: System.OutOfMemoryException Thrown When You Invoke a COM Method That Returns a Structure Containing a String Array (317624)

MORE INFORMATION

Steps to Reproduce the Problem

1. Create a Microsoft Visual Basic 6.0 COM component with a method that returns a structure containing a string array. To do this, follow these steps:
   1. Start Visual Basic 6.0 to create an ActiveX DLL file.
   2. Rename the Project1 project as InteropTest and Class1 as TestComponent.
   3. Add the following code in the TestComponent class:

      Option Explicit
      
      Public Type PersonalInfo
          Id As Long
          FirstName As String
          LastName As String
          Address As String
          Hobbies(10) As String
          Interests(10) As Variant
          BankBalance As Currency
      End Type
      
      Public Function GetPersonalInfo() As PersonalInfo
          Dim pi As PersonalInfo
          pi.Id = 213
          pi.FirstName = "Roger"
          pi.LastName = "Sims"
          pi.Address = "Hotel California"
          GetPersonalInfo = pi
      End Function
      						

   4. Make InteropTest.dll.
2. Register InteropTest.dll if it is not already registered.
3. Run TlbImp.exe on InteropTest.dll to generate InteropTestLib.dll, as follows:

   TlbImp /out:InteropTestLib.dll InteropTest.dll
   					

4. Start Notepad, and then insert the following code:

   Class TestClient
   	Shared Sub Main
   		Dim pi As InteropTestLib.PersonalInfo
   		Dim rs As New InteropTestLib.TestComponent()
   		pi = rs.GetPersonalInfo
   	End Sub
   End Class
   					

5. Save the file as TestClient.vb, and then compile TestClient.vb as follows:

   vbc /debug /t:exe /r:InteropTestLib.dll TestClient.vb
   					

6. Run TestClient.exe. The System.OutOfMemoryException error is thrown.