Tabcontrol, controls, format y ctype

Con el siguiente código se puede ver como recoger los diferentes objetos dentro de las pestañas de un tabcontrol, para controlarlo mas solo va a coger los checkbox y radiobuttons y los mostrará en dos listas, uno con el nombre del tab y del articulo y en la otra lista el precio con formato 0.00 para el que usamos format, con ctype convertimos los controls en checkbox o radiobutton para poder acceder a sus propiedades .checked


 For i = 0 To TabControl1.Controls.Count - 1
            For j = 0 To TabControl1.Controls(i).Controls.Count - 1
                If TypeOf TabControl1.Controls(i).Controls(j) Is RadioButton Then
                    If CType(TabControl1.Controls(i).Controls(j), RadioButton).Checked = True Then
                        Lista1.Items.Add(TabControl1.Controls(i).Text & " " & CType(TabControl1.Controls(i).Controls(j), RadioButton).Text)
                        Lista2.Items.Add(Format(CDbl(CType(TabControl1.Controls(i).Controls(j), RadioButton).Tag), "#,###.00"))
                        TextBox1.Text = TextBox1.Text + CDbl(CType(TabControl1.Controls(i).Controls(j), RadioButton).Tag)
                    End If

                Else
                    If TypeOf TabControl1.Controls(i).Controls(j) Is CheckBox Then
                        If CType(TabControl1.Controls(i).Controls(j), CheckBox).Checked = True Then
                            Lista1.Items.Add(TabControl1.Controls(i).Text & " " & CType(TabControl1.Controls(i).Controls(j), CheckBox).Text)
                            Lista2.Items.Add(Format(CDbl(CType(TabControl1.Controls(i).Controls(j), CheckBox).Tag), "#,###.00"))
                            TextBox1.Text = TextBox1.Text + CDbl(CType(TabControl1.Controls(i).Controls(j), CheckBox).Tag)
                        End If
                    End If
                End If
            Next
        Next