كيفية اتمام شاشات بخصائص وخيارات تتيح للمستخدم حرية الاختيار [ الدرس الثالث ]

كود :
   Private Sub Panel8_MouseHover(sender As Object, e As EventArgs) Handles Panel8.MouseHover, CheckBox7.MouseHover, Label10.MouseHover, Label11.MouseHover, Label13.MouseHover

        Panel8.BackColor = IIf(CheckBox7.Checked, Color.FromArgb(132, 53, 152), Color.Gray)

    End Sub



    Private Sub Panel8_MouseMouseLeave(sender As Object, e As EventArgs) Handles Panel8.MouseLeave

        Panel8.BackColor = IIf(CheckBox7.Checked, Color.FromArgb(104, 33, 122), Color.FromArgb(64, 64, 64))

    End Sub



    Private Sub Panel8_Click(sender As Object, e As EventArgs) Handles Panel8.Click, CheckBox7.Click, Label10.Click, Label11.Click, Label13.Click

        CheckBox7.Checked = Not CheckBox7.Checked

        Panel8.BackColor = IIf(CheckBox7.Checked, Color.FromArgb(132, 53, 152), Color.Gray)

    End Sub



    Private Sub Panel9_MouseHover(sender As Object, e As EventArgs) Handles Panel9.MouseHover, CheckBox6.MouseHover, Label14.MouseHover, Label15.MouseHover, Label16.MouseHover

        Panel9.BackColor = IIf(CheckBox6.Checked, Color.FromArgb(224, 48, 53), Color.Gray)

    End Sub



    Private Sub Panel9_MouseMouseLeave(sender As Object, e As EventArgs) Handles Panel9.MouseLeave

        Panel9.BackColor = IIf(CheckBox6.Checked, Color.FromArgb(195, 26, 33), Color.FromArgb(64, 64, 64))

    End Sub



    Private Sub Panel9_Click(sender As Object, e As EventArgs) Handles Panel9.Click, CheckBox6.Click, Label14.Click, Label15.Click, Label16.Click

        CheckBox6.Checked = Not CheckBox6.Checked

        Panel9.BackColor = IIf(CheckBox6.Checked, Color.FromArgb(224, 48, 53), Color.Gray)

    End Sub



    Private Sub Panel10_MouseHover(sender As Object, e As EventArgs) Handles Panel10.MouseHover, CheckBox8.MouseHover, Label17.MouseHover, Label18.MouseHover, Label19.MouseHover

        Panel10.BackColor = IIf(CheckBox8.Checked, Color.FromArgb(169, 30, 48), Color.Gray)

    End Sub



    Private Sub Panel10_MouseMouseLeave(sender As Object, e As EventArgs) Handles Panel10.MouseLeave

        Panel10.BackColor = IIf(CheckBox8.Checked, Color.FromArgb(131, 19, 32), Color.FromArgb(64, 64, 64))

    End Sub



    Private Sub Panel10_Click(sender As Object, e As EventArgs) Handles Panel10.Click, CheckBox8.Click, Label17.Click, Label18.Click, Label19.Click

        CheckBox8.Checked = Not CheckBox8.Checked

        Panel10.BackColor = IIf(CheckBox8.Checked, Color.FromArgb(169, 30, 48), Color.Gray)

    End Sub



    Private Sub Panel11_MouseHover(sender As Object, e As EventArgs) Handles Panel11.MouseHover, CheckBox9.MouseHover, Label20.MouseHover, Label21.MouseHover, Label22.MouseHover

        Panel11.BackColor = IIf(CheckBox9.Checked, Color.FromArgb(0, 136, 48), Color.Gray)

    End Sub



    Private Sub Panel11_MouseMouseLeave(sender As Object, e As EventArgs) Handles Panel11.MouseLeave

        Panel11.BackColor = IIf(CheckBox9.Checked, Color.FromArgb(0, 95, 33), Color.FromArgb(64, 64, 64))

    End Sub



    Private Sub Panel11_Click(sender As Object, e As EventArgs) Handles Panel11.Click, CheckBox9.Click, Label20.Click, Label21.Click, Label22.Click

        CheckBox9.Checked = Not CheckBox9.Checked

        Panel11.BackColor = IIf(CheckBox9.Checked, Color.FromArgb(0, 136, 48), Color.Gray)

    End Sub



    Private Sub Panel12_MouseHover(sender As Object, e As EventArgs) Handles Panel12.MouseHover, CheckBox10.MouseHover, Label23.MouseHover, Label24.MouseHover, Label25.MouseHover

        Panel12.BackColor = IIf(CheckBox10.Checked, Color.FromArgb(76, 163, 249), Color.Gray)

    End Sub



    Private Sub Panel12_MouseMouseLeave(sender As Object, e As EventArgs) Handles Panel12.MouseLeave

        Panel12.BackColor = IIf(CheckBox10.Checked, Color.FromArgb(49, 149, 248), Color.FromArgb(64, 64, 64))

    End Sub



    Private Sub Panel12_Click(sender As Object, e As EventArgs) Handles Panel12.Click, CheckBox10.Click, Label23.Click, Label24.Click, Label25.Click

        CheckBox10.Checked = Not CheckBox10.Checked

        Panel12.BackColor = IIf(CheckBox10.Checked, Color.FromArgb(76, 163, 249), Color.Gray)

    End Sub



    Private Sub Panel13_MouseHover(sender As Object, e As EventArgs) Handles Panel13.MouseHover, CheckBox11.MouseHover, Label26.MouseHover, Label27.MouseHover, Label28.MouseHover

        Panel13.BackColor = IIf(CheckBox11.Checked, Color.FromArgb(16, 116, 160), Color.Gray)

    End Sub



    Private Sub Panel13_MouseMouseLeave(sender As Object, e As EventArgs) Handles Panel13.MouseLeave

        Panel13.BackColor = IIf(CheckBox11.Checked, Color.FromArgb(0, 101, 139), Color.FromArgb(64, 64, 64))

    End Sub



    Private Sub Panel13_Click(sender As Object, e As EventArgs) Handles Panel13.Click, CheckBox11.Click, Label26.Click, Label27.Click, Label28.Click

        CheckBox11.Checked = Not CheckBox11.Checked

        Panel13.BackColor = IIf(CheckBox11.Checked, Color.FromArgb(16, 116, 160), Color.Gray)

    End Sub