Enumerate alle checkbox'er i en form

Kan du bruge denne ?

Dim i As Integer

For i = 0 To Me.Controls.Count - 1
      If TypeOf Me.Controls(i) Is System.Windows.Forms.CheckBox then 'Er det en checkbox ?
          If CType(Me.Controls(i), System.Windows.Forms.CheckBox).Checked = True Then
                      messagebox.Show("Checked CheckBox = " & CType(Me.Controls(i), System.Windows.Forms.CheckBox).name
            End If
      End If
Next

Det er noget i den stil. Problemet er at ActiveForm.Controls(i) indeholder komponenter som hver især indeholder andre komponenter:

ActiveForm
- TabControl
-- Panel
--- CheckBox

Jeg skal på en eller andet måde ind i de andre komponenters Controls container.