Problemas con COMBO

[tavitooo]

Amigos nose que estoy haciendo mal con este codigo lo que hago es que cuando selecciono el combo1 al seleccionar automaticamente debe cambiar el combo2 con un item que le especifique pero me dicen que debo de hacerlo con un array? y q el combo maneja un codigo interno? yo toy usando el lisindex esta bien? POR FAVOR ES DE VIDA O MUERTE SOLUCIONAR ESTO GRACIAS

If txtFormato.text <> "0" Then
ComboItem = cmb1.ListIndex

If ComboItem = "2" Or ComboItem = "0" Then
cmb2.ListIndex = 2
Else
cmb2.ListIndex = 1
cmb2.Refresh
End If

[Insomnia]

Hola

El evento que tienes que utilizar es el click, no el change que viene por defecto. Por ejemplo 2 comboa, el 1º con Item1 y item2 y el 2º con 4.

Código:

Private Sub Combo1_Click()
    
    If Combo1.ListIndex = 0 Then
        Combo2.ListIndex = 2
    Else
        Combo2.ListIndex = 3
    End If

End Sub

--Saludos--