La Inmortalidad Del Cangrego

Public Class Form1

Dim pan, cPan, Jugo, cJugo, Bebid, cBebid, cuaderno, cCuaderno As Integer

Dim total As Integer = 0

'Estos tres vectores se utilizan solo para poder borrar de la listbox el objeto deseado

Dim precio(0 To 100) As Integer

'Este es String porqe guarda el "Que cosa es" del producto

Dim producto(0 To 100) As String

Dim cantidad(0 To 100) As Integer

Dim contador As Integer = 0

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'La primera variable es el Stock inicial, por ejemplo tenemos 135 panes

'La segunda cVariable eequivale a la cantidad que hemos comprado, inicialmente 0

pan = 135

cPan = 0

Jugo = 72

cJugo = 0

Bebid = 95

cBebid = 0

cuaderno = 223

cCuaderno = 0

'Estos sVariable son los nombres que le puse a las label de Stock, salen con un _ en el diseño

'Asi les cambio que el texto sea igual a la variable de Stock.

sPan.Text = pan

sBebida.Text = Bebid

sCuaderno.Text = cuaderno

sJugo.Text = Jugo

End Sub

...