Private Sub List1_Click()
 Dim Id As Integer
    
  Dim nombrearch As String
Dim noreg As Integer

  Dim Dire As String
  
  
  ' para ciger todos los items fel jyst1 al combo1
  
'  Dim i As Long
'For i = 0 To List1.ListCount - 1 'I can never remember if ListIndex is 0- or 1-based
 ' Combo1.AddItem (Split(List1.List(i), vbTab)(2))
'Next
  
  
  
  
 
CmbArticulo.Clear

'Dim i As Long
'For i = 0 To List1.ListCount - 1 'I can never remember if ListIndex is 0- or 1-based

  CmbArticulo.AddItem (Split(List1.Text, vbTab)(2))

 CmbArticulo.Text = (Split(List1.Text, vbTab)(2))



'Next


Dim Dati() As String

Dati = Split(List1.List(List1.ListIndex), vbTab)
               ' CmbArticulo.Text = Dati(2)
           
                 
    
If (CmbArticulo.ListIndex >= 0) Then


        Id = CmbArticulo.ItemData(CmbArticulo.ListIndex)
        RegArt = FrmAlmacen.ArticuloByCode(Id)
        With RegArt
            TxtUnidades.Text = CStr(.UnidadesPorCaja)
            Call EstablecerValorImpuestos(.PrecioUnitario, .ImpuestoIVA)
            
            If (.IdOferta > 0) Then
                LabOferta.Caption = "¿Está en oferta?:     SI"
                Id = FrmOfertas.BuscarPorCodigo(.IdOferta, RegOfer)
            Else
                LabOferta.Caption = "¿Está en oferta?:     NO"
                TxtDescuento.Text = "- 0.0"
                Call VaciarRegOferta
            End If
        End With
        
        Call Totalizar
    End If
End Sub