Visible Function spørgsmål

Hey eksperer.!

Vi er ved at lave en Isvaffel laver tingest i skolen :p

http://www.fluii.dk/pic/FluiiDK-00001861.jpg

"kugle 1 - 6 skal ikke være synlige når man starter programmet op men når man vælger hvad antal kugler man skal have kommer der nye Comboboxe op med havd smag de skal have"

efter hvad hjælp vi har fået er vi kommet frem til noget alla det neden under her, men kan bare ikke få skitet til at virke.

Private Sub ComboBox1_Change()
'---- Det sikres at smags combo bokse ikke kan ses -----
ComboBox_Smag1.Visible = False
ComboBox_Smag2.Visible = False
ComboBox_Smag3.Visible = False
ComboBox_Smag4.Visible = False
ComboBox_Smag5.Visible = False
'----------------------------------------------------------------
'----- De relevante combo bokse vises --------------------
If ComboBox1.Value = 1 Then
ComboBox_Smag1.Visible = True
ElseIf ComboBox1.Value = 2 Then
ComboBox_Smag1.Visible = True
ComboBox_Smag2.Visible = True
ElseIf ComboBox1.Value = 3 Then
ComboBox_Smag1.Visible = True
ComboBox_Smag2.Visible = True
ComboBox_Smag3.Visible = True
ElseIf ComboBox1.Value = 4 Then
ComboBox_Smag1.Visible = True
ComboBox_Smag2.Visible = True
ComboBox_Smag3.Visible = True
ComboBox_Smag4.Visible = True
ElseIf ComboBox1.Value = 5 Then
ComboBox_Smag1.Visible = True
ComboBox_Smag2.Visible = True
ComboBox_Smag3.Visible = True
ComboBox_Smag4.Visible = True
ComboBox_Smag5.Visible = True
ElseIf ComboBox1.Value = 6 Then
ComboBox_Smag1.Visible = True
ComboBox_Smag2.Visible = True
ComboBox_Smag3.Visible = True
ComboBox_Smag4.Visible = True
ComboBox_Smag5.Visible = True
ComboBox_Smag6.Visible = True
End If
'--------------------------------------------------------------
End Sub