نیاز به دستور برای استفاده از چند checkbox

[ILYA20]

با این دستور کارم راه افتاد ممنون از دوستان

        If PictureBox1.BackColor = Color.Blue Then

            If CheckBoxboot.Checked = True Or CheckBoxrecovery.Checked = True Or CheckBoxsystem.Checked = True Or CheckBoxuserdata.Checked = True Or CheckBoxsplash.Checked = True Or CheckBoxradio.Checked = True Or CheckBoxmodem.Checked = True Then

                If Trim(textbox1.Text).Length > 0 Then

                    TextBox1.AppendText(Environment.NewLine & "..........")

                End If

                If Trim(textbox2.Text).Length > 0 Then

                    TextBox1.AppendText(Environment.NewLine & "..........")

                End If

                If Trim(textbox3.Text).Length > 0 Then

                    TextBox1.AppendText(Environment.NewLine & "..........")

                End If

                If Trim(textbox4.Text).Length > 0 Then

                    TextBox1.AppendText(Environment.NewLine & "..........")

                End If

                If Trim(textbox5.Text).Length > 0 Then

                    TextBox1.AppendText(Environment.NewLine & "..........")

                End If

                If Trim(textbox6.Text).Length > 0 Then

                    TextBox1.AppendText(Environment.NewLine & "..........")

                End If

                If Trim(textbox7.Text).Length > 0 Then

                    TextBox1.AppendText(Environment.NewLine &"..........")

                End If

            Else

                    TextBox1.AppendText(Environment.NewLine &"..........")

            End If

        Else

                TextBox1.AppendText(Environment.NewLine & "Device Not Connected In Fastboot Mode !")

        End If