Soru Aynı Kuralı Birden Fazla ComboBox' a Uygulamak

[Textiler]

Merhaba,
Aşağıdaki gibi kullandığım bir kod var 20'den fazla ComboBox ve Label için alt alta yazmak durumunda kalıyorum. Acaba bu kodu daha kısa şekilde yazmak mümkün müdür? Yardımlarınız için şimdiden teşekkür ederim.

Private Sub ComboBox1_Change()

If ComboBox1.Value = "" Then
    Label2.Enabled = False
    ComboBox2.Value = ""
    ComboBox2.Enabled = False
    Label3.Enabled = False
    ComboBox3.Value = ""
    ComboBox3.Enabled = False
    Label4.Enabled = False
    ComboBox4.Value = ""
    ComboBox4.Enabled = False
    Label5.Enabled = False
    ComboBox5.Value = ""
    ComboBox5.Enabled = False
    Label6.Enabled = False
    ComboBox6.Value = ""
    ComboBox6.Enabled = False
End If

 

[Korhan Ayhan]

Merhaba,

Nesneleriniz ardışık numara ile dizili ise döngü ile kolaylıkla yapabilirsiniz.

Controls ifadesi ile arama yapınız.