Combo Combo [RESOLVED]

[WorkHorse]

For some reason I can't work this out. I have two combo boxes. The first Combo1 lists all options (there are 10 options). The second Combo2 lists the "end option". The program will process all records from Combo1 to Combo2. It's a basic sort of "For x= Combo1 to Combo2" type deal. So Combo2 must always be equal or greater than or equal to Combo1, and the Combo2 list only includes values greater than or equal to Combo1 selection.

So: If User selects Combo1 value greater than Combo2 value, then Combo2 value is same as Combo1. If User selects Combo1 less than than Combo2 value, then Combo2 value stays the same, but the Combo2 list expands to include all option of Combo1 or greater and adjusts the Combo2 selection. Do you follow? Combo2 is a list of all Combo1 selection and higher. Combo2 selection stays the same unless Combo1 selection is higher.

Here's what I have:

Option Explicit
 
Dim lStage
Dim lStageEnd
 
Private Sub Form_Load()
 
    ' Example start value.
    lStage = 7
 
    With Combo1
        .AddItem "0"
        .AddItem "1"
        .AddItem "2"
        .AddItem "3"
        .AddItem "4"
        .AddItem "5"
        .AddItem "6"
        .AddItem "7"
        .AddItem "8"
        .AddItem "9"
    End With
    Combo1.ListIndex = lStage
    Label1.Caption = lStage
    
    Combo2.Clear
    With Combo2
        If lStage <= 0 Then .AddItem "0"
        If lStage <= 1 Then .AddItem "1"
        If lStage <= 2 Then .AddItem "2"
        If lStage <= 3 Then .AddItem "3"
        If lStage <= 4 Then .AddItem "4"
        If lStage <= 5 Then .AddItem "5"
        If lStage <= 6 Then .AddItem "6"
        If lStage <= 7 Then .AddItem "7"
        If lStage <= 8 Then .AddItem "8"
        If lStage <= 9 Then .AddItem "9"
    End With
 
    lStageEnd = Combo2.ListCount - 1
    Combo2.ListIndex = lStageEnd
    Label2.Caption = lStageEnd
 
End Sub
 
Private Sub Combo1_Click()
 
    Dim lStageOld As Integer
    
    lStageOld = lStage
    
    lStage = Combo1.ListIndex
    Label1.Caption = lStage
    
    Combo2.Clear
    With Combo2
        If lStage <= 0 Then .AddItem "0"
        If lStage <= 1 Then .AddItem "1"
        If lStage <= 2 Then .AddItem "2"
        If lStage <= 3 Then .AddItem "3"
        If lStage <= 4 Then .AddItem "4"
        If lStage <= 5 Then .AddItem "5"
        If lStage <= 6 Then .AddItem "6"
        If lStage <= 7 Then .AddItem "7"
        If lStage <= 8 Then .AddItem "8"
        If lStage <= 9 Then .AddItem "9"
    End With
    
    If lStageEnd <= lStage Then
        Combo2.ListIndex = 0
    Else
        Combo2.ListIndex = lStageEnd + (lStage - lStageOld)
    End If
 
End Sub
 
Private Sub Combo2_Click()
    lStageEnd = Combo1.ListIndex + Combo2.ListIndex
    Label2.Caption = lStageEnd
End Sub