VBA 2010 UserForm z zależnymi ComboBox'ami

 
Private Sub UserForm_Initialize()

Dim Chłopcy As Long
Dim Dziewczynki As Long
Dim Niemowlęta As Long
Dim Uniseks As Long


ComboBox1.AddItem "Chłopcy"
ComboBox1.AddItem "Dziewczynki"
ComboBox1.AddItem "Niemowlęta"
ComboBox1.AddItem "Uniseks"

If Dziewczynki = True Then

Select Case ComboBox1.ListIndex
    'Case 0
        'ComboBox3.List = [ChlopcyLista].Value
    Case 1
        ComboBox3.List = [DziewczynkiLista].Value
    'Case 2
        'ComboBox3.List = [NiemowletaLista].Value
    'Case 3
        'ComboBox3.List = [UniseksLista].Value
End Select
End If

End Sub