Friend routinesToRun = New List(Of String)

Private Sub btnReportRun_Click(sender As System.Object, e As System.EventArgs) Handles btnReportRun.Click
        ' Get which reports to run
        'routinesToRun is a list(of string) declared at the declarations level of the form 
        'since the recursion routine re-dimensions variables with each recursive call, otherwise
        'I would have used a function and returned a List(Of String)

        routinesToRun.Clear() 
        getRoutinesToRun(Me)

    End Sub

    Private Sub getRoutinesToRun(ByVal Page As Control)
        ' Trying to get the tag associated with checkboxes on a form 
        ' if the checkbox is checked

        For Each ctrl As Control In Page.Controls
            If TypeOf ctrl Is CheckBox Then
                If ctrl.checked = True Then
                    routinesToRun.Add(CType(ctrl, CheckBox).Tag)
                End If
            Else
                If ctrl.Controls.Count > 0 Then
                    getRoutinesToRun(ctrl)
                End If
            End If
        Next

    End Sub

Dim checkbox As CheckBox = TryCast(ctrl, CheckBox)
If checkbox IsNot Nothing Then
    ' It is a checkbox
Else
    ' It is not
End If