Comboboxta ki sayıya göre textbox visible değeri

[sirkülasyon]

combobox5 açılır listesinde "1,2,3,4,5" rakamları mevcut. Listede
1 seçilirse Textbox7 görünsün diğerleri görünmesin
2 seçilirse Textbox7 ve Textbox8 görünsün diğerleri görünmesin
3 seçilirse Textbox7, Textbox8 ve Textbox9 görünsün diğerleri görünmesin
4 seçilirse Textbox7, Textbox8 Textbox9 ve Textbox10 görünsün diğerleri görünmesin
5 seçilirse Textbox7, Textbox8 , Textbox9, Textbox10 ve Textbox11, görünsün

bu kritere göre nasıl bir kod kullanabilirim

 

[sirkülasyon]

Private Sub ComboBox5_Change()
  Select Case ComboBox5.Value
    Case Is = "1"
        TextBox7.Visible = True
        TextBox8.Visible = False
        TextBox9.Visible = False
        TextBox10.Visible = False
        TextBox11.Visible = False
        Label14.Visible = True
        Label15.Visible = False
        Label16.Visible = False
        Label17.Visible = False
        Label18.Visible = False
    Case Is = "2"
        TextBox7.Visible = True
        TextBox8.Visible = True
        TextBox9.Visible = False
        TextBox10.Visible = False
        TextBox11.Visible = False
        Label14.Visible = True
        Label15.Visible = True
        Label16.Visible = False
        Label17.Visible = False
        Label18.Visible = False
      Case Is = "3"
        TextBox7.Visible = True
        TextBox8.Visible = True
        TextBox9.Visible = True
        TextBox10.Visible = False
        TextBox11.Visible = False
        Label14.Visible = True
        Label15.Visible = True
        Label16.Visible = True
        Label17.Visible = False
        Label18.Visible = False
         Case Is = "4"
        TextBox7.Visible = True
        TextBox8.Visible = True
        TextBox9.Visible = True
        TextBox10.Visible = True
        TextBox11.Visible = False
        Label14.Visible = True
        Label15.Visible = True
        Label16.Visible = True
        Label17.Visible = True
        Label18.Visible = False
    Case Else
      TextBox7.Visible = True
        TextBox8.Visible = True
        TextBox9.Visible = True
        TextBox10.Visible = True
        TextBox11.Visible = True
        Label14.Visible = True
        Label15.Visible = True
        Label16.Visible = True
        Label17.Visible = True
        Label18.Visible = True
  End Select
End Sub

Bu kodların daha kısası nasıl yapılabilir?