Buscar en el SubItem de ListView

[E N T E R]

Hola compañeros tengo un problemita con el listview, tengo 2 ventanas uno donde muestro los artículos a vender en otra ventana la lista de articulos que tengo. Lo que quiero hacer es por ejemplo si ya anote una Coca Cola y si vuelvo a agregar a la lista que me sume la cantidad, nunca tuve problemas si busco por la primera columna pero en este caso esta en la 2da columna los datos.

El codigo que tengo es igual al que esta aca http://www.recursosvisualbasic.com.ar/htm/listado-api/97-buscar-en-listview.htm  pero modificado segun mi proyecto. El error que me da es si inserto 1 ves 1 articulo y vuelvo a insertar el mismo articulo me vuelve a insertar como otro registro no me suma. Pero si inserto 2 articulos diferente y vuelvo a insertar 1 de los articulos si lo hace bien.

Aca dejo me proyecto si pueden darme una manito.

http://www.2shared.com/file/cBbaKEZO/buscar_en_lv.html

[Bazooka]

hola amigo no deja descargar pide un numero de celular!

[E N T E R]

hola amigo no deja descargar pide un numero de celular!

Pero de todos modos ya resolví esta manera pero la otra forma me parecía que era mas elegante por que podías elegir en que columna buscar.

Este es mi code:

Código: (VB) [Seleccionar]

Sub AGREGAR_ARTICULO()

    Dim ITMFound  As ListItem
    Set ITMFound = Form1.LVentas.FindItem(Form2.LArticulos.SelectedItem.SubItems(1), lvwSubItem, , lvwPartial)
   
    If ITMFound Is Nothing Then
       
        Set Lv = Form1.LVentas.ListItems.Add()

        With Lv

            .Text = "1"
            .SubItems(1) = Form2.LArticulos.SelectedItem.SubItems(1)
            .SubItems(2) = Form2.LArticulos.SelectedItem.SubItems(2)

            .SubItems(3) = "0"
            .SubItems(4) = "0"
            .SubItems(5) = "0"
            .SubItems(6) = "0"

        End With
       
        Form1.LVentas.ListItems(Form1.LVentas.ListItems.Count).Selected = True
        Form1.LVentas.ListItems(Form1.LVentas.ListItems.Count).EnsureVisible

    Else
   
        For i = 1 To Form1.LVentas.ListItems.Count

            If Form1.LVentas.ListItems(i).SubItems(1) = Form2.LArticulos.SelectedItem.SubItems(1) Then
                Form1.LVentas.ListItems(i).Text = Val(Form1.LVentas.ListItems(i).Text) + 1
                Form1.LVentas.ListItems(i).Selected = True
                Form1.LVentas.ListItems(i).EnsureVisible
            End If

        Next i
               
    End If

End Sub