Visual Basic 6.0 Combobox- Hilfe!

Hallo,
habe ein "kleines" Problem!!
Nachdem ich schon lange umherprobiere, es aber nicht wirklich funktionieren möchte poste ich euch kurz mal mein problem!!..


Also.
4 Comboboxen
die erste soll sichtbar sein, die anderen noch nicht!!

wenn ich die erste angeclickt habe soll die 2. erscheinen.
wenn ich die 2, ausgewählt habe die dritte etc...
also der Reihe nach.

es soll bei der ersten "V" oder "R" zur auswahl stehen.
je nachdem ob V oder R dann V4, V6, V8, V10, V12... oder das gleiche mit R (4,6,8,10,12)

je nachdem wieviel zyinder sollen dann maximal so viele zylinder geprüft werden können wie zur auswahl stehen das heißt. bei 12 zylinder kann auch noch max. der 12. geprüft werden!!
hingegen bei 4 Zylinder kein 12. grprüft werden kann sondern maximal der 4.


darunter in der 4. Box soll dann noch die Zündreihenfolge auszuwählen sein!!!

da es wieder darauf an kommt ob es ein Motor mit V- anordnung ist oder mit R-Anordnung, jedoch auch abhängig wieviel zylinder er hat, ist das ganze dann doch schon recht kompliziert....


als hoffe ihr wist was ich meine!!!
(darum trau ich mich da nicht drüber .... leider kann ichs auch gar nicht so gut...)




VIELEN DANK SOWEIT MAL!!

Berni

Code soweit!!:
jedoch weis ich nicht wie ma 3. und 4. box ineinander verschachtelt!!

Option Explicit
Option Base 1
Dim sorte() As String, Waren() As String, Pruef As String, Pruefn As String


Private Sub cmdQuit_Click()
Dim iForm As Integer
While Forms.Count > 1
' Finden erste Form außer eigene (="Me") zu Entladen
iForm = 0
While Forms(iForm).Caption = Me.Caption
iForm = iForm + 1
Wend
Unload Forms(iForm)
Wend
' Als allerletztes zu tun ...
Unload Me
End
End Sub

Private Sub Combo1_Click()
Dim i%, sorten%, Ware$
Ware = Combo1.Text
Combo2.Visible = True
Combo2.Clear
For i = 1 To UBound(sorte)
Rem 1=Obst, 2=Gemüse
If Ware = sorte(i, 2) Then sorten = sorte(i, 1)
Next
For i = 1 To UBound(Waren)
If Waren(i, 1) = sorten Then Combo2.AddItem Waren(i, 2)
Next
End Sub

'Private Sub Combo2_Click()
'Dim i%, Pruef%, Ware$
'Pruef = Combo3.Text
'Combo4.Visible = True
'Combo4.Clear
'For i = 1 To UBound(Pruefn)
'If Pruef = Ware(i, 2) Then Waren = Ware(i, 1)
'Next

'End Sub

Private Sub Form_Load()
Dim i%
ReDim sorte(2, 3), Waren(10, 2)
sorte(1, 1) = "1": sorte(1, 2) = "V-Anordnung"
sorte(2, 1) = "2": sorte(2, 2) = "R-Anordnung"
Rem Arrays laden
Waren(1, 1) = "1": Waren(1, 2) = "V4 Zylinder"
Waren(2, 1) = "1": Waren(2, 2) = "V6 Zylinder"
Waren(3, 1) = "2": Waren(3, 2) = "R4 Zylinder"
Waren(4, 1) = "2": Waren(4, 2) = "R6 Zylinder"
Waren(5, 1) = "2": Waren(5, 2) = "R8 Zylinder"
Waren(6, 1) = "1": Waren(6, 2) = "V8 Zylinder"
Waren(7, 1) = "2": Waren(7, 2) = "R10 Zylinder"
Waren(8, 1) = "1": Waren(8, 2) = "V10 Zylinder"
Waren(9, 1) = "2": Waren(9, 2) = "R12 Zylinder"
Waren(10, 1) = "1": Waren(10, 2) = "V12 Zylinder"



Combo1.Clear
Rem Combo1 füllen
For i = 1 To UBound(sorte)
Combo1.AddItem sorte(i, 2)
Combo2.Visible = False
Combo3.Visible = False
Combo4.Visible = False

Next
End Sub