bigracefan
Programmer
I want to put my selected items into an array and I can't seem to get this code correct. This is what I have so far.
Dim i As Integer
Dim a As Integer
Dim MyParts(2, 5000) As Variant
For a = 0 To lvParts.ListItems.Count - 1
If lvParts.SelectedItem.Index = True Then
MyParts(0, a) = lvParts.SelectedItem
MyParts(1, a) = lvParts.SelectedItem.SubItems(1)
End If
Next a
[\b]
Dim i As Integer
Dim a As Integer
Dim MyParts(2, 5000) As Variant
For a = 0 To lvParts.ListItems.Count - 1
If lvParts.SelectedItem.Index = True Then
MyParts(0, a) = lvParts.SelectedItem
MyParts(1, a) = lvParts.SelectedItem.SubItems(1)
End If
Next a
[\b]