PRB: Len and LenB May Differ on Size of User-Defined Types

MORE INFORMATION

Steps to Reproduce

1. Start a new Visual Basic 4.0 32-bit project. Form1 is created by default.
2. Add a single module to the project by selecting Module from the Insert menu.
3. Add this code to the General Declarations section of Module1:

         Type MyUDT
            x As String * 5      'size of 10 or 5
            y As String       'size of 4
            z (1 to 5) As Byte   'size of 5
         End Type

4. Add this code to the Form_Click event of Form1:

         Private Sub Form_Click()
            Dim test As MyUDT
   
            test.x = "hello"
            test.y = "world"
            test.z(1) = 64
            test.z(2) = 65
            test.z(3) = 66
            test.z(4) = 67
   
            Print LenB(test)     'returns 21
            Print Len(test)      'returns 14
         End Sub
   						

5. Press the F5 key or select Start from the Run menu to run the application and observe the behavior.