BUG: The Visual Basic .NET or Visual Basic 2005 Upgrade Wizard reports an incorrect warning message for user-defined data types

Steps To Reproduce the Behavior

1. Open Visual Basic 6.0.
2. On the File menu, click New Project.
3. Under New Project, select Standard Exe, and then click OK.
   
   By default, Form1 is created.
4. In Project Explorer, right-click Form1 and then click Remove Form1.
5. On the Project menu, click Add Module, and then click Open.
6. Add the following code to Module1:

   Option Explicit
   ' Create a User-Defined Data Type
   Public Type myType
       x As Integer
       y As Integer
   End Type
   
   Public Sub main()
       Dim a As myType
       Dim b As myType
       b.x = 500
       b.y = 250
       a = b		' Direct UDT assignment
       Debug.Print (a.x)
       Debug.Print (a.y)
   End Sub
   

7. On the File menu, click Save Project to save the module as Module1.bas, and to save the project as Project1.vbp.
8. Open Visual Studio .NET or Visual Studio 2005.
9. Click File, point to Open, and then click Project.
10. Locate and then click Project1.vbp.
    
    Visual Basic Upgrade Wizard starts automatically.
11. Click Next to upgrade the Visual Basic 6.0 code.
12. In Solution Explorer, double-click Module1.vb.
    
    The wizard incorrectly generates the following warning message code:

    Option Strict Off
    Option Explicit On
    Module Module1
    	' Create a User-Defined Data Type
    	Public Structure myType
    		Dim x As Short
    		Dim y As Short
    	End Structure
    	
    	Public Sub main()
    		Dim a As myType
    		Dim b As myType
    		b.x = 500
    		b.y = 250
    		'UPGRADE_WARNING: Couldn't resolve default property of object a. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
    		a = b		' Direct UDT assignment
    		System.Diagnostics.Debug.WriteLine(a.x)
    		System.Diagnostics.Debug.WriteLine(a.y)
    	End Sub
    End Module

Back to the top