Private Sub Button1_Click(buttonSender As System.Object, buttonE As  _
      System.EventArgs) Handles Button1.Click
 
        Dim chk As New CheckBox()
        chk.Text = "Hi!"
        chk.Bounds = New Rectangle(10, 10, 100, 20)
        Controls.Add(chk)
 
        AddHandler chk.CheckedChanged, AddressOf CheckboxCheckedChangedHandler
 
    End Sub
 
    Private Sub CheckboxCheckedChangedHandler(buttonSender As System.Object, _
      buttonE As  _
      System.EventArgs)
        ' Ereignis verarbeiten...
    End Sub