Private Sub frmMain_Load(ByVal sender As System.Object, _
                         ByVal e As System.EventArgs) Handles Me.Load
 
    ' Combobox-Elemente hinzufügen ...
 
    ' Event-Handler hinzufügen
    AddHandler Me.ComboBox1.SelectedIndexChanged, AddressOf _
      ComboBox1_SelectedIndexChanged
 
End Sub
 
 
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As _
  System.EventArgs) ' Muss WEG: Handles ComboBox1.SelectedIndexChanged
    ' ...
End Sub