Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        For i As Int32 = 1 To 8
            Dim cb As New CheckBox
            cb.Name = "CheckBox" & (i).ToString
            cb.Text = "R:" & (i).ToString
            cb.AutoCheck = True
            cb.SetBounds(10, 25 * i, 50, 20)
            Me.Controls.Add(cb)
            AddHandler cb.CheckStateChanged, AddressOf CheckedChanged
        Next
    End Sub
    Private Sub CheckedChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs)
        Dim wert As Int32
        For i As Int32 = 1 To 8
            If CType(Me.Controls("CheckBox" & i.ToString), CheckBox).Checked _
              Then
                wert += 1 << i - 1
            End If
        Next
        MsgBox(wert)
    End Sub
End Class