Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
 
         AddHandler ComboBox1.Click, AddressOf CombBox_Click
         AddHandler ComboBox1.SelectedIndexChanged, AddressOf CombBox_Click 
         'Du kannst für jede ComboBox mehrere Events abonieren
 
         AddHandler ComboBox2.Click, AddressOf CombBox_Click
         AddHandler ComboBox3.Click, AddressOf CombBox_Click 'usw
 
    End Sub
 
    Private Sub CombBox_Click(ByVal sender As Object, ByVal e As _
      EvaluateException)
 
        ' Dein Code
 
        ' Solltest du wissen, welech ComboBox den Event ausgelöst hat, 
        ' folgender Code benutzen
        ' Dim currentCobmoBox as ComboBox = Ctype(sender, ComboBox) 
 
    End Sub