[Resolved]Trouble with Listview Subitems

[hipopony66]

I am sure I have totally screwed this up, but here is my code. I am trying to loop through a listview control, storing the listitems and all of the subitems.

 Dim SurgProcedures(frmaddforms.lvSurgProcedures.items.count) as String


 Dim frm As frmAddForms


        With frm

            For i As Integer = 0 To frm.lvSurgProcedures.Items.Count - 1

                SurgProcedures(i) = frm.lvSurgProcedures.Items.Item(i)
               
                SurgDate = frm.lvSurgProcedures.Items.Item(i).SubItems(0)
                SurgName = frm.lvSurgProcedures.Items.Item(i).SubItems(1)
                Surgphone= frm.lvSurgProcedures.Items.Item(i).SubItems(2)
                SurgFacility = frm.lvSurgProcedures.Items.Item(i).SubItems(3)
                SurgPostOp = frm.lvSurgProcedures.Items.Item(i).SubItems(4)

            Next
        End With

I have SurgDate, SurgName, etc. declared as strings. Thanks in advance for any direction.