Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        For i As Integer = 0 To 5
            Dim t As New CheckBox
            AddHandler CType(t, CheckBox).Click, AddressOf MeinEreignis_Click
            t.Name = "chk_" & i
            t.Top = 30
            t.Left = i * t.Width + 5
            Me.Controls.Add(t)
        Next
    End Sub
 
    Private Sub MeinEreignis_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
        Dim chk As CheckBox = CType(sender, CheckBox)
        For Each c As Control In Me.Controls
            If TypeOf c Is CheckBox Then
                chk = c
                If chk.Checked = True Then
                    'Stop
                    Me.Text = "CheckBox " & chk.Name & " wurde markiert"
                End If
            End If
        Next
    End Sub
End Class
 
gruss
 
mikeb69