ListBox & ListBox.Items

I have to take info from one form into another and place it itno a listbox sub item. The program is a type of vending machine; each time a product is sold one must decrease from the subitem box. How can i make this work??

The follow is the function i have till now:

Public Function DecreaseCoke(ByVal intNum1 As Integer) As String
Dim intDecrease1 As Integer = Convert.ToInt32(lsbStock.Items(1).SubItems(2))
Dim intDecrease2 As Integer = intDecrease1 - 1
lsbStock.Items(1).SubItems(2) = intDecrease2.ToString

I think you mean ListView, since ListBox controls don't have subitems.

Try this to display information on another form:

VB Code:

Private Sub ListViewMakeRow(ByVal lvw As ListView, ByVal _
    item_title As String, ByVal ParamArray subitem_titles() _
    As String)
    ' Make the item.
    Dim new_item As ListViewItem = lvw.Items.Add(item_title)
 
    ' Make the sub-items.
    For i As Integer = subitem_titles.GetLowerBound(0) To _
        subitem_titles.GetUpperBound(0)
        new_item.SubItems.Add(subitem_titles(i))
    Next i
End Sub

Then in your code use this:

VB Code:

ListViewMakeRow(lvwBooks, _
    ITEM, _
    SUBITEMS, _
    SUBITEMS, SUBITEMS)

If you are having a problem with the function and not displaying data in the ListView then I don't see an issue.

If this helped, please add to my rep.

thanks, rep added :)