PRB: Can't Use Late Binding When Server Method Uses UDT

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a new ActiveX EXE project.
2. On the Project menu, click Properties. Change the Project Name to "TestServer" and click OK.
3. Add the following code to Class1:

         Public Type MyUDT
            x as Long
            y as Long
         End Type
   
         Public Function MyMethod() as MyUDT
            MyMethod.x = 1
            MyMethod.y = 2
         End Function
   
   						

4. On the File menu, click Make TestServer.EXE.
5. Close this project and start a new Standard EXE project.
6. Add two command buttons to Form1.
7. Add the following code to Form1:

         Private Type MyUDT
            x as Long
            y as Long
         End Type
   
         Private Sub Command1_Click()
            Dim obj1 as Object
            Dim obj2 as Object
            Set obj1 = CreateObject("TestServer.Class1")
            obj2 = obj1.MyMethod           '<== Generates run-time error #429.
         End Sub
   
         Private Sub Command2_Click()
            Dim obj1 as Object
            Dim mu as MyUDT
            Set obj1 = CreateObject("TestServer.Class1")
            mu = obj1.MyMethod             '<== Generates compile error.
         End Sub
   
   						

8. Run the project by pressing F5 and click Command1. You receive the run-time error #429. Click End to end the program.
9. Run the project once more and click Command2. You receive the compile error described at the beginning of this article.