Hello guys, I have this frustrating problem, I have 3 list box, 1st is for itemName, 2nd is for Quantity, and 3rd is for Price.. How can I Delete the itemName in the listbox and at the same delete the price and quantity. All I can do is to delete a single selected ItemName, but I can't delete the price and quantity. here's my code
Code:
Private Sub btnDelete_Click()
Call ListBoxRemSel(lstItem)
End Sub



Sub ListBoxRemSel(lst As ListBox)
Dim a As Integer
   Do Until lst.SelCount = 0
       If lst.Selected(a) Then lst.RemoveItem a: a = a - 1
       a = a + 1
   Loop
End Sub