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