estimados buenas tardes.

pido el apoyo de sus sabios conocimientos referente este caso 

tengo un pequeño proyecto de gestor de invenatarios. donde la salida de mis productos lo estoy intentando realizar de la siguiente manera.

cargando items de un userform a un lixtbox de otro formulario.

Public Sub AgregarItems()

Dim i As Integer

    With frm_Salidas1

    ListBox1.Clear

        ListBox1.AddItem

        ListBox1.List(0, 0) = frm_salidas.ComboBox1.Value

        ListBox1.List(0, 1) = frm_salidas.txt_Nombre

        ListBox1.List(0, 2) = frm_salidas.txt_Existencia

        ListBox1.List(0, 3) = frm_salidas.txt_Salida

    End With

    en el formulario de donde cargo los datos estoy usando el siguiente codigo.

Private Sub CommandButton1_Click()

With frm_Salidas1

.AgregarItems

End With

End Sub

    me genera el item pero cuando quiero seguir agregando mas datos, me chanca el primer dato y no sigue la lista, por favor ya intente de otras maneras pero no encuentro la solucion.

desde ya agradesco su ayuda.