Combobox | Ændre i kontrolarray

Hej

Jeg er ved, at lave et program, hvor jeg har brug for at få nogle shapes til at ændre FillColor, ved hjælp af nogle comboboxe, hvor indholdet/farverne er de samme i de tre:

Jeg har derfor en kontrolarray med 3 comboboxe, og tre shapes i en kontrolarray. Jeg har forsøgt mig med følgende, som jeg synes burde virke, men det gør det ikke.

Kontroller:

cbo(0), cbo(1), cbo(2)
shp(1), shp(2), shp(3)

cbo(0) skal ændre farven ved shp(1), osv...

Kode:

Private Sub cbo_Click(Index As Integer)
Dim i As Integer
    Select Case Index
        Case 0
        i = 1
        Case 1
        i = 2
        Case 2
        i = 3
    End Select
    
    Select Case cbo(Index).ListIndex
        Case 0
        shp(i).FillColor = &H0&
        Case 1
        shp(i).FillColor = &H404080
        Case 2
        shp(i).FillColor = &HFF&
        Case 3
        shp(i).FillColor = &H80FF&
        Case 4
        shp(i).FillColor = &HFFFF&
        Case 5
        shp(i).FillColor = &HFF00&
        Case 6
        shp(i).FillColor = &HFF0000
        Case 7
        shp(i).FillColor = &HC000C0
        Case 8
        shp(i).FillColor = &HC0C0C0
        Case 9
        shp(i).FillColor = &HFFFFFF
    End Select
    
End Sub

Håber at det er til at finde ud af... På forhånd tak!
Vh. Nickoe

PS. bruger VB 5.0, ved godt det er gammelt, men det er nu det vi bruger i skolen...