For Each ctrl As Control In Me.Controls
            If TypeOf ctrl Is CheckBox Then
                AddHandler (ctrl.Click), AddressOf ControlChanged
            End If
        Next
 
    Private Sub ControlChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) 
        If Initializing Then Return
        Dim eSender As CheckBox = DirectCast(sender, CheckBox)
        MsgBox(eSender.Name)
    End Sub