textbox vb.net 2005

[laurio_12]

El codigo me quedaraia asi segun su analicis:


Private Sub BarcodeRead(ByVal sender As System.Object, ByVal e As Intermec.DataCollection.BarcodeReadEventArgs)

'Aqui levanto el lector del Intermec CK31 con la llave
txtcodigo.Text = e.strDataBuffer

'Declaramos una variable de lectura
Dim ObjEscribe As StreamWriter


'Ruta donde escribe el archivo plano en la CK31
ObjEscribe = File.AppendText("\CK_FFS\invent.txt")

'Escribe la lineas en el invent.txt (Embarque más Código leido)
ObjEscribe.WriteLine(txtembarque.Text + txtcodigo.Text)


'Muestra el resultado de lectura en el label

Dim contador As Integer
contador = 0

contador += 1
lbcajas.Text = contador.ToString


'Cierra la lectura
ObjEscribe.Close()

End Sub





****
Pero contador+=1 solo me esta poniendo en el lbcajas.text = contador.ToString solo el número 1.

Pregunta como hago para que vaya incrementando el valos a medida que lee?


Saludos