BUG: ListView SubItemIndex Property Not Converted (182068)

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a new project in Visual Basic 4.0. Form1 is created by default.
2. Choose Custom Controls from the Tools menu, and deselect all controls except for "Microsoft Windows Common Controls." (Comctl32.ocx should be the version that ships with Visual Basic 4.0.)
3. Add a ListView control and CommandButton control to Form1.
4. Using the custom properties of the ListView1 control, insert 2 column headers:

      Index: 1
      Text : Name
      Key  : Name
   
      Index: 2
      Text : Address
      Key  : Address
   						

5. Add the following code to Form1:

         Private Sub Command1_Click()
            Dim itmX As ListItem
            ListView1.View = 3 'report view
            Set itmX = ListView1.ListItems.Add(1, "Bob", "Bob")
            itmX.SubItems(ListView1.ColumnHeaders("Address").SubItemIndex) _
               = "123 Main Street"
         End Sub
   						

6. Save and run the project. Click the CommandButton to make sure there are no errors. You should see "Bob" and "123 Main Street" in the ListView.
7. On a computer that has Visual Basic 5.0 installed, open, save, and run the project in Visual Basic 5.0.
8. Click the CommandButton and note that the result is:
   Run-time Error '380': Invalid Property Value
   Because the SubItemIndex property has a 0 value, the error occurs. The SubItemIndex is supposed to have a value of 1 for the Address column (because it is the second column).

Workaround

Close the project in Visual Basic. Backup the Form1.frm file, and then open the Form1.frm file using Notepad and add the missing SubItemIndex value as follows.

Before editing, the column 2 header information in Form1.frm will resemble the following:

   BeginProperty ColumnHeader(2) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
      Key             =   "Address"
      Object.Tag             =   ""
      Text            =   "Address"
      Object.Width           =   2540
   EndProperty
				

After adding the SubItemIndex line (use spaces to indent), it should resemble:

   BeginProperty ColumnHeader(2) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
      SubItemIndex    =   1
      Key             =   "Address"
      Object.Tag             =   ""
      Text            =   "Address"
      Object.Width           =   2540
   EndProperty
				

NOTE: If there were more than 2 columns, you would do the same for any additional column headers. For example, Column 3 would have a SubItemIndex = 2.

1. Save the changes to Form1.frm and close Notepad.
2. Reopen the project in Visual Basic 5.0.
3. Run the project and click the Command button. There should be no error this time. You should see "Bob" and "123 Main Street" in the ListView.