Sub HandlerAdder()
    Dim ctl As Control = Me.GetNextControl(Me, True)
    While Not ctl Is Nothing
        If TypeOf ctl Is CheckBox Then
            AddHandler TryCast(ctl, CheckBox).CheckedChanged, AddressOf _
              CheckBox_CheckedChanged
        End If
        ctl = Me.GetNextControl(ctl, True)
    End While
End Sub
 
Private Sub CheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As _
  System.EventArgs)
    MessageBox.Show(TryCast(sender, CheckBox).Text & " wurde geändert")
End Sub