bisa pake Me.getcheckme(Me)
contoh
Private Sub getcheckme(ByVal element As Control)
Dim count As Integer
count = 0
If TypeOf element Is CheckBox Then
If DirectCast(element, CheckBox).Checked = True Then
count += 1 'this will count the checked checkboxes
list.Add(element.Text) ' this will add the value of checkboxes into arraylist
End If
Else
For Each childElement In element.Controls
Me.getcheckme(childElement)
Next
End If
End Sub