Public Class frmXXX
 
    'Variante 1 (Property)
    Private cb1 As New CheckBox With {.Parent = Me, .Name = "C1", .Text = "C1", _
      .Checked = False}
 
    Public ReadOnly Property IsChecked As Boolean
        Get
            Return cb1.Checked
        End Get
    End Property
 
    'Variante2 (öffentlich)
    Public cb2 As New CheckBox With {.Parent = Me, .Name = "C2", .Text = "C2", _
      .Checked = True, .Top = 50}
 
End Class
 
 
Public Module Start
 
    Public Sub Main()
 
        Dim f As New frmXXX
 
        Dim bl1 As Boolean = f.IsChecked
        Dim bl2 As Boolean = f.cb2.Checked
 
        For Each ctrl As Control In f.Controls
            If TypeOf ctrl Is CheckBox Then
                'Hier kommen Referenzen für beide cbs an
                'an der Name-Eigenschaft sind sie zu identifizieren 
                Dim cb As CheckBox = DirectCast(ctrl, CheckBox)
                Dim bl3 As Boolean = cb.Checked
            End If
        Next ctrl
 
    End Sub
End Module