Jumat, 16 November 2012

Analisis Bangun Datar Part 2


        If ComboBox1.Text = "Segitiga" And
        ComboBox2.Text = "Ungu" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = False
            PPCoklat.Visible = False
            PPHijau.Visible = False
            PPKuning.Visible = False
            PPMerah.Visible = False
            PPOren.Visible = False
            PPPink.Visible = False
            PPTosca.Visible = False
            PPUngu.Visible = False

            PersegiAbu.Visible = False
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = False
            PersegiKuning.Visible = False
            PersegiMerah.Visible = False
            PersegiOren.Visible = False
            PersegiPink.Visible = False
            PersegiTosca.Visible = False
            PersegiUngu.Visible = False

            PAbu.Visible = False
            PBiru.Visible = False
            PCok.Visible = False
            PHij.Visible = False
            PKun.Visible = False
            PMer.Visible = False
            POren.Visible = False
            PPink.Visible = False
            PTos.Visible = False
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = True

        End If
        If ComboBox1.Text = "Persegi" And
        ComboBox2.Text = "Abu-Abu" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = False
            PPCoklat.Visible = False
            PPHijau.Visible = False
            PPKuning.Visible = False
            PPMerah.Visible = False
            PPOren.Visible = False
            PPPink.Visible = False
            PPTosca.Visible = False
            PPUngu.Visible = False

            PersegiAbu.Visible = True
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = False
            PersegiKuning.Visible = False
            PersegiMerah.Visible = False
            PersegiOren.Visible = False
            PersegiPink.Visible = False
            PersegiTosca.Visible = False
            PersegiUngu.Visible = False

            PAbu.Visible = False
            PBiru.Visible = False
            PCok.Visible = False
            PHij.Visible = False
            PKun.Visible = False
            PMer.Visible = False
            POren.Visible = False
            PPink.Visible = False
            PTos.Visible = False
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False

        End If
        If ComboBox1.Text = "Persegi" And
        ComboBox2.Text = "Biru" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = False
            PPCoklat.Visible = False
            PPHijau.Visible = False
            PPKuning.Visible = False
            PPMerah.Visible = False
            PPOren.Visible = False
            PPPink.Visible = False
            PPTosca.Visible = False
            PPUngu.Visible = False

            PersegiAbu.Visible = False
            PersegiBiru.Visible = True
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = False
            PersegiKuning.Visible = False
            PersegiMerah.Visible = False
            PersegiOren.Visible = False
            PersegiPink.Visible = False
            PersegiTosca.Visible = False
            PersegiUngu.Visible = False

            PAbu.Visible = False
            PBiru.Visible = False
            PCok.Visible = False
            PHij.Visible = False
            PKun.Visible = False
            PMer.Visible = False
            POren.Visible = False
            PPink.Visible = False
            PTos.Visible = False
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False
        End If
        If ComboBox1.Text = "Persegi" And
        ComboBox2.Text = "Coklat" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = False
            PPCoklat.Visible = False
            PPHijau.Visible = False
            PPKuning.Visible = False
            PPMerah.Visible = False
            PPOren.Visible = False
            PPPink.Visible = False
            PPTosca.Visible = False
            PPUngu.Visible = False

            PersegiAbu.Visible = False
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = True
            PersegiHijau.Visible = False
            PersegiKuning.Visible = False
            PersegiMerah.Visible = False
            PersegiOren.Visible = False
            PersegiPink.Visible = False
            PersegiTosca.Visible = False
            PersegiUngu.Visible = False

            PAbu.Visible = False
            PBiru.Visible = False
            PCok.Visible = False
            PHij.Visible = False
            PKun.Visible = False
            PMer.Visible = False
            POren.Visible = False
            PPink.Visible = False
            PTos.Visible = False
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False

        End If
        If ComboBox1.Text = "Persegi" And
        ComboBox2.Text = "Hijau" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = False
            PPCoklat.Visible = False
            PPHijau.Visible = False
            PPKuning.Visible = False
            PPMerah.Visible = False
            PPOren.Visible = False
            PPPink.Visible = False
            PPTosca.Visible = False
            PPUngu.Visible = False

            PersegiAbu.Visible = False
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = True
            PersegiKuning.Visible = False
            PersegiMerah.Visible = False
            PersegiOren.Visible = False
            PersegiPink.Visible = False
            PersegiTosca.Visible = False
            PersegiUngu.Visible = False

            PAbu.Visible = False
            PBiru.Visible = False
            PCok.Visible = False
            PHij.Visible = False
            PKun.Visible = False
            PMer.Visible = False
            POren.Visible = False
            PPink.Visible = False
            PTos.Visible = False
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False

        End If
        If ComboBox1.Text = "Persegi" And
        ComboBox2.Text = "Kuning" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = False
            PPCoklat.Visible = False
            PPHijau.Visible = False
            PPKuning.Visible = False
            PPMerah.Visible = False
            PPOren.Visible = False
            PPPink.Visible = False
            PPTosca.Visible = False
            PPUngu.Visible = False

            PersegiAbu.Visible = False
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = False
            PersegiKuning.Visible = True
            PersegiMerah.Visible = False
            PersegiOren.Visible = False
            PersegiPink.Visible = False
            PersegiTosca.Visible = False
            PersegiUngu.Visible = False

            PAbu.Visible = False
            PBiru.Visible = False
            PCok.Visible = False
            PHij.Visible = False
            PKun.Visible = False
            PMer.Visible = False
            POren.Visible = False
            PPink.Visible = False
            PTos.Visible = False
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False

        End If
        If ComboBox1.Text = "Persegi" And
        ComboBox2.Text = "Merah" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = False
            PPCoklat.Visible = False
            PPHijau.Visible = False
            PPKuning.Visible = False
            PPMerah.Visible = False
            PPOren.Visible = False
            PPPink.Visible = False
            PPTosca.Visible = False
            PPUngu.Visible = False

            PersegiAbu.Visible = False
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = False
            PersegiKuning.Visible = False
            PersegiMerah.Visible = True
            PersegiOren.Visible = False
            PersegiPink.Visible = False
            PersegiTosca.Visible = False
            PersegiUngu.Visible = False

            PAbu.Visible = False
            PBiru.Visible = False
            PCok.Visible = False
            PHij.Visible = False
            PKun.Visible = False
            PMer.Visible = False
            POren.Visible = False
            PPink.Visible = False
            PTos.Visible = False
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False

        End If
        If ComboBox1.Text = "Persegi" And
        ComboBox2.Text = "Orange" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = False
            PPCoklat.Visible = False
            PPHijau.Visible = False
            PPKuning.Visible = False
            PPMerah.Visible = False
            PPOren.Visible = False
            PPPink.Visible = False
            PPTosca.Visible = False
            PPUngu.Visible = False

            PersegiAbu.Visible = False
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = False
            PersegiKuning.Visible = False
            PersegiMerah.Visible = False
            PersegiOren.Visible = True
            PersegiPink.Visible = False
            PersegiTosca.Visible = False
            PersegiUngu.Visible = False

            PAbu.Visible = False
            PBiru.Visible = False
            PCok.Visible = False
            PHij.Visible = False
            PKun.Visible = False
            PMer.Visible = False
            POren.Visible = False
            PPink.Visible = False
            PTos.Visible = False
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False

        End If
        If ComboBox1.Text = "Persegi" And
        ComboBox2.Text = "Pink" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = False
            PPCoklat.Visible = False
            PPHijau.Visible = False
            PPKuning.Visible = False
            PPMerah.Visible = False
            PPOren.Visible = False
            PPPink.Visible = False
            PPTosca.Visible = False
            PPUngu.Visible = False

            PersegiAbu.Visible = False
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = False
            PersegiKuning.Visible = False
            PersegiMerah.Visible = False
            PersegiOren.Visible = False
            PersegiPink.Visible = True
            PersegiTosca.Visible = False
            PersegiUngu.Visible = False

            PAbu.Visible = False
            PBiru.Visible = False
            PCok.Visible = False
            PHij.Visible = False
            PKun.Visible = False
            PMer.Visible = False
            POren.Visible = False
            PPink.Visible = False
            PTos.Visible = False
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False

        End If
        If ComboBox1.Text = "Persegi" And
        ComboBox2.Text = "Tosca" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = False
            PPCoklat.Visible = False
            PPHijau.Visible = False
            PPKuning.Visible = False
            PPMerah.Visible = False
            PPOren.Visible = False
            PPPink.Visible = False
            PPTosca.Visible = False
            PPUngu.Visible = False

            PersegiAbu.Visible = False
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = False
            PersegiKuning.Visible = False
            PersegiMerah.Visible = False
            PersegiOren.Visible = False
            PersegiPink.Visible = False
            PersegiTosca.Visible = True
            PersegiUngu.Visible = False

            PAbu.Visible = False
            PBiru.Visible = False
            PCok.Visible = False
            PHij.Visible = False
            PKun.Visible = False
            PMer.Visible = False
            POren.Visible = False
            PPink.Visible = False
            PTos.Visible = False
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False

        End If
        If ComboBox1.Text = "Persegi" And
        ComboBox2.Text = "Ungu" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = False
            PPCoklat.Visible = False
            PPHijau.Visible = False
            PPKuning.Visible = False
            PPMerah.Visible = False
            PPOren.Visible = False
            PPPink.Visible = False
            PPTosca.Visible = False
            PPUngu.Visible = False

            PersegiAbu.Visible = False
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = False
            PersegiKuning.Visible = False
            PersegiMerah.Visible = False
            PersegiOren.Visible = False
            PersegiPink.Visible = False
            PersegiTosca.Visible = False
            PersegiUngu.Visible = True

            PAbu.Visible = False
            PBiru.Visible = False
            PCok.Visible = False
            PHij.Visible = False
            PKun.Visible = False
            PMer.Visible = False
            POren.Visible = False
            PPink.Visible = False
            PTos.Visible = False
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False

        End If
        If ComboBox1.Text = "Persegi Panjang" And
            ComboBox2.Text = "Abu-Abu" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = True
            PPBiru.Visible = False
            PPCoklat.Visible = False
            PPHijau.Visible = False
            PPKuning.Visible = False
            PPMerah.Visible = False
            PPOren.Visible = False
            PPPink.Visible = False
            PPTosca.Visible = False
            PPUngu.Visible = False

            PersegiAbu.Visible = False
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = False
            PersegiKuning.Visible = False
            PersegiMerah.Visible = False
            PersegiOren.Visible = False
            PersegiPink.Visible = False
            PersegiTosca.Visible = False
            PersegiUngu.Visible = False

            PAbu.Visible = False
            PBiru.Visible = False
            PCok.Visible = False
            PHij.Visible = False
            PKun.Visible = False
            PMer.Visible = False
            POren.Visible = False
            PPink.Visible = False
            PTos.Visible = False
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False

        End If
        If ComboBox1.Text = "Persegi Panjang" And
       ComboBox2.Text = "Biru" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = True
            PPCoklat.Visible = False
            PPHijau.Visible = False
            PPKuning.Visible = False
            PPMerah.Visible = False
            PPOren.Visible = False
            PPPink.Visible = False
            PPTosca.Visible = False
            PPUngu.Visible = False

            PersegiAbu.Visible = False
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = False
            PersegiKuning.Visible = False
            PersegiMerah.Visible = False
            PersegiOren.Visible = False
            PersegiPink.Visible = False
            PersegiTosca.Visible = False
            PersegiUngu.Visible = False

            PAbu.Visible = False
            PBiru.Visible = False
            PCok.Visible = False
            PHij.Visible = False
            PKun.Visible = False
            PMer.Visible = False
            POren.Visible = False
            PPink.Visible = False
            PTos.Visible = False
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False

        End If
        If ComboBox1.Text = "Persegi Panjang" And
       ComboBox2.Text = "Coklat" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = False
            PPCoklat.Visible = True
            PPHijau.Visible = False
            PPKuning.Visible = False
            PPMerah.Visible = False
            PPOren.Visible = False
            PPPink.Visible = False
            PPTosca.Visible = False
            PPUngu.Visible = False

            PersegiAbu.Visible = False
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = False
            PersegiKuning.Visible = False
            PersegiMerah.Visible = False
            PersegiOren.Visible = False
            PersegiPink.Visible = False
            PersegiTosca.Visible = False
            PersegiUngu.Visible = False

            PAbu.Visible = False
            PBiru.Visible = False
            PCok.Visible = False
            PHij.Visible = False
            PKun.Visible = False
            PMer.Visible = False
            POren.Visible = False
            PPink.Visible = False
            PTos.Visible = False
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False

        End If
        If ComboBox1.Text = "Persegi Panjang" And
       ComboBox2.Text = "Hijau" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = False
            PPCoklat.Visible = False
            PPHijau.Visible = True
            PPKuning.Visible = False
            PPMerah.Visible = False
            PPOren.Visible = False
            PPPink.Visible = False
            PPTosca.Visible = False
            PPUngu.Visible = False

            PersegiAbu.Visible = False
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = False
            PersegiKuning.Visible = False
            PersegiMerah.Visible = False
            PersegiOren.Visible = False
            PersegiPink.Visible = False
            PersegiTosca.Visible = False
            PersegiUngu.Visible = False

            PAbu.Visible = False
            PBiru.Visible = False
            PCok.Visible = False
            PHij.Visible = False
            PKun.Visible = False
            PMer.Visible = False
            POren.Visible = False
            PPink.Visible = False
            PTos.Visible = False
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False

        End If
        If ComboBox1.Text = "Persegi Panjang" And
       ComboBox2.Text = "Kuning" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = False
            PPCoklat.Visible = False
            PPHijau.Visible = False
            PPKuning.Visible = True
            PPMerah.Visible = False
            PPOren.Visible = False
            PPPink.Visible = False
            PPTosca.Visible = False
            PPUngu.Visible = False

            PersegiAbu.Visible = False
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = False
            PersegiKuning.Visible = False
            PersegiMerah.Visible = False
            PersegiOren.Visible = False
            PersegiPink.Visible = False
            PersegiTosca.Visible = False
            PersegiUngu.Visible = False

            PAbu.Visible = False
            PBiru.Visible = False
            PCok.Visible = False
            PHij.Visible = False
            PKun.Visible = False
            PMer.Visible = False
            POren.Visible = False
            PPink.Visible = False
            PTos.Visible = False
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False

        End If
        If ComboBox1.Text = "Persegi Panjang" And
       ComboBox2.Text = "Merah" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = False
            PPCoklat.Visible = False
            PPHijau.Visible = False
            PPKuning.Visible = False
            PPMerah.Visible = True
            PPOren.Visible = False
            PPPink.Visible = False
            PPTosca.Visible = False
            PPUngu.Visible = False

            PersegiAbu.Visible = False
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = False
            PersegiKuning.Visible = False
            PersegiMerah.Visible = False
            PersegiOren.Visible = False
            PersegiPink.Visible = False
            PersegiTosca.Visible = False
            PersegiUngu.Visible = False

            PAbu.Visible = False
            PBiru.Visible = False
            PCok.Visible = False
            PHij.Visible = False
            PKun.Visible = False
            PMer.Visible = False
            POren.Visible = False
            PPink.Visible = False
            PTos.Visible = False
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False

        End If
        If ComboBox1.Text = "Persegi Panjang" And
       ComboBox2.Text = "Orange" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = False
            PPCoklat.Visible = False
            PPHijau.Visible = False
            PPKuning.Visible = False
            PPMerah.Visible = False
            PPOren.Visible = True
            PPPink.Visible = False
            PPTosca.Visible = False
            PPUngu.Visible = False

            PersegiAbu.Visible = False
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = False
            PersegiKuning.Visible = False
            PersegiMerah.Visible = False
            PersegiOren.Visible = False
            PersegiPink.Visible = False
            PersegiTosca.Visible = False
            PersegiUngu.Visible = False

            PAbu.Visible = False
            PBiru.Visible = False
            PCok.Visible = False
            PHij.Visible = False
            PKun.Visible = False
            PMer.Visible = False
            POren.Visible = False
            PPink.Visible = False
            PTos.Visible = False
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False

        End If
        If ComboBox1.Text = "Persegi Panjang" And
            ComboBox2.Text = "Pink" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = False
            PPCoklat.Visible = False
            PPHijau.Visible = False
            PPKuning.Visible = False
            PPMerah.Visible = False
            PPOren.Visible = False
            PPPink.Visible = True
            PPTosca.Visible = False
            PPUngu.Visible = False

            PersegiAbu.Visible = False
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = False
            PersegiKuning.Visible = False
            PersegiMerah.Visible = False
            PersegiOren.Visible = False
            PersegiPink.Visible = False
            PersegiTosca.Visible = False
            PersegiUngu.Visible = False

            PAbu.Visible = False
            PBiru.Visible = False
            PCok.Visible = False
            PHij.Visible = False
            PKun.Visible = False
            PMer.Visible = False
            POren.Visible = False
            PPink.Visible = False
            PTos.Visible = False
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False

        End If
        If ComboBox1.Text = "Persegi Panjang" And
       ComboBox2.Text = "Tosca" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = False
            PPCoklat.Visible = False
            PPHijau.Visible = False
            PPKuning.Visible = False
            PPMerah.Visible = False
            PPOren.Visible = False
            PPPink.Visible = False
            PPTosca.Visible = True
            PPUngu.Visible = False

            PersegiAbu.Visible = False
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = False
            PersegiKuning.Visible = False
            PersegiMerah.Visible = False
            PersegiOren.Visible = False
            PersegiPink.Visible = False
            PersegiTosca.Visible = False
            PersegiUngu.Visible = False

            PAbu.Visible = False
            PBiru.Visible = False
            PCok.Visible = False
            PHij.Visible = False
            PKun.Visible = False
            PMer.Visible = False
            POren.Visible = False
            PPink.Visible = False
            PTos.Visible = False
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False

        End If
        If ComboBox1.Text = "Persegi Panjang" And
       ComboBox2.Text = "Ungu" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = False
            PPCoklat.Visible = False
            PPHijau.Visible = False
            PPKuning.Visible = False
            PPMerah.Visible = False
            PPOren.Visible = False
            PPPink.Visible = False
            PPTosca.Visible = False
            PPUngu.Visible = True

            PersegiAbu.Visible = False
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = False
            PersegiKuning.Visible = False
            PersegiMerah.Visible = False
            PersegiOren.Visible = False
            PersegiPink.Visible = False
            PersegiTosca.Visible = False
            PersegiUngu.Visible = False

            PAbu.Visible = False
            PBiru.Visible = False
            PCok.Visible = False
            PHij.Visible = False
            PKun.Visible = False
            PMer.Visible = False
            POren.Visible = False
            PPink.Visible = False
            PTos.Visible = False
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False

        End If
        If ComboBox1.Text = "Poligon" And
       ComboBox2.Text = "Abu-Abu" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = False
            PPCoklat.Visible = False
            PPHijau.Visible = False
            PPKuning.Visible = False
            PPMerah.Visible = False
            PPOren.Visible = False
            PPPink.Visible = False
            PPTosca.Visible = False
            PPUngu.Visible = False

            PersegiAbu.Visible = False
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = False
            PersegiKuning.Visible = False
            PersegiMerah.Visible = False
            PersegiOren.Visible = False
            PersegiPink.Visible = False
            PersegiTosca.Visible = False
            PersegiUngu.Visible = False

            PAbu.Visible = True
            PBiru.Visible = False
            PCok.Visible = False
            PHij.Visible = False
            PKun.Visible = False
            PMer.Visible = False
            POren.Visible = False
            PPink.Visible = False
            PTos.Visible = False
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False

        End If
        If ComboBox1.Text = "Poligon" And
       ComboBox2.Text = "Biru" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = False
            PPCoklat.Visible = False
            PPHijau.Visible = False
            PPKuning.Visible = False
            PPMerah.Visible = False
            PPOren.Visible = False
            PPPink.Visible = False
            PPTosca.Visible = False
            PPUngu.Visible = False

            PersegiAbu.Visible = False
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = False
            PersegiKuning.Visible = False
            PersegiMerah.Visible = False
            PersegiOren.Visible = False
            PersegiPink.Visible = False
            PersegiTosca.Visible = False
            PersegiUngu.Visible = False

            PAbu.Visible = False
            PBiru.Visible = True
            PCok.Visible = False
            PHij.Visible = False
            PKun.Visible = False
            PMer.Visible = False
            POren.Visible = False
            PPink.Visible = False
            PTos.Visible = False
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False

        End If
        If ComboBox1.Text = "Poligon" And
      ComboBox2.Text = "Coklat" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = False
            PPCoklat.Visible = False
            PPHijau.Visible = False
            PPKuning.Visible = False
            PPMerah.Visible = False
            PPOren.Visible = False
            PPPink.Visible = False
            PPTosca.Visible = False
            PPUngu.Visible = False

            PersegiAbu.Visible = False
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = False
            PersegiKuning.Visible = False
            PersegiMerah.Visible = False
            PersegiOren.Visible = False
            PersegiPink.Visible = False
            PersegiTosca.Visible = False
            PersegiUngu.Visible = False

            PAbu.Visible = False
            PBiru.Visible = False
            PCok.Visible = True
            PHij.Visible = False
            PKun.Visible = False
            PMer.Visible = False
            POren.Visible = False
            PPink.Visible = False
            PTos.Visible = False
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False

        End If
        If ComboBox1.Text = "Poligon" And
      ComboBox2.Text = "Hijau" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = False
            PPCoklat.Visible = False
            PPHijau.Visible = False
            PPKuning.Visible = False
            PPMerah.Visible = False
            PPOren.Visible = False
            PPPink.Visible = False
            PPTosca.Visible = False
            PPUngu.Visible = False

            PersegiAbu.Visible = False
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = False
            PersegiKuning.Visible = False
            PersegiMerah.Visible = False
            PersegiOren.Visible = False
            PersegiPink.Visible = False
            PersegiTosca.Visible = False
            PersegiUngu.Visible = False

            PAbu.Visible = False
            PBiru.Visible = False
            PCok.Visible = False
            PHij.Visible = True
            PKun.Visible = False
            PMer.Visible = False
            POren.Visible = False
            PPink.Visible = False
            PTos.Visible = False
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False

        End If
        If ComboBox1.Text = "Poligon" And
      ComboBox2.Text = "Kuning" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = False
            PPCoklat.Visible = False
            PPHijau.Visible = False
            PPKuning.Visible = False
            PPMerah.Visible = False
            PPOren.Visible = False
            PPPink.Visible = False
            PPTosca.Visible = False
            PPUngu.Visible = False

            PersegiAbu.Visible = False
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = False
            PersegiKuning.Visible = False
            PersegiMerah.Visible = False
            PersegiOren.Visible = False
            PersegiPink.Visible = False
            PersegiTosca.Visible = False
            PersegiUngu.Visible = False

            PAbu.Visible = False
            PBiru.Visible = False
            PCok.Visible = False
            PHij.Visible = False
            PKun.Visible = True
            PMer.Visible = False
            POren.Visible = False
            PPink.Visible = False
            PTos.Visible = False
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False

        End If
        If ComboBox1.Text = "Poligon" And
      ComboBox2.Text = "Merah" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = False
            PPCoklat.Visible = False
            PPHijau.Visible = False
            PPKuning.Visible = False
            PPMerah.Visible = False
            PPOren.Visible = False
            PPPink.Visible = False
            PPTosca.Visible = False
            PPUngu.Visible = False

            PersegiAbu.Visible = False
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = False
            PersegiKuning.Visible = False
            PersegiMerah.Visible = False
            PersegiOren.Visible = False
            PersegiPink.Visible = False
            PersegiTosca.Visible = False
            PersegiUngu.Visible = False

            PAbu.Visible = False
            PBiru.Visible = False
            PCok.Visible = False
            PHij.Visible = False
            PKun.Visible = False
            PMer.Visible = True
            POren.Visible = False
            PPink.Visible = False
            PTos.Visible = False
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False

        End If
        If ComboBox1.Text = "Poligon" And
      ComboBox2.Text = "Orange" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = False
            PPCoklat.Visible = False
            PPHijau.Visible = False
            PPKuning.Visible = False
            PPMerah.Visible = False
            PPOren.Visible = False
            PPPink.Visible = False
            PPTosca.Visible = False
            PPUngu.Visible = False

            PersegiAbu.Visible = False
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = False
            PersegiKuning.Visible = False
            PersegiMerah.Visible = False
            PersegiOren.Visible = False
            PersegiPink.Visible = False
            PersegiTosca.Visible = False
            PersegiUngu.Visible = False

            PAbu.Visible = False
            PBiru.Visible = False
            PCok.Visible = False
            PHij.Visible = False
            PKun.Visible = False
            PMer.Visible = False
            POren.Visible = True
            PPink.Visible = False
            PTos.Visible = False
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False

        End If
        If ComboBox1.Text = "Poligon" And
      ComboBox2.Text = "Pink" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = False
            PPCoklat.Visible = False
            PPHijau.Visible = False
            PPKuning.Visible = False
            PPMerah.Visible = False
            PPOren.Visible = False
            PPPink.Visible = False
            PPTosca.Visible = False
            PPUngu.Visible = False

            PersegiAbu.Visible = False
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = False
            PersegiKuning.Visible = False
            PersegiMerah.Visible = False
            PersegiOren.Visible = False
            PersegiPink.Visible = False
            PersegiTosca.Visible = False
            PersegiUngu.Visible = False

            PAbu.Visible = False
            PBiru.Visible = False
            PCok.Visible = False
            PHij.Visible = False
            PKun.Visible = False
            PMer.Visible = False
            POren.Visible = False
            PPink.Visible = True
            PTos.Visible = False
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False

        End If
        If ComboBox1.Text = "Poligon" And
      ComboBox2.Text = "Tosca" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = False
            PPCoklat.Visible = False
            PPHijau.Visible = False
            PPKuning.Visible = False
            PPMerah.Visible = False
            PPOren.Visible = False
            PPPink.Visible = False
            PPTosca.Visible = False
            PPUngu.Visible = False

            PersegiAbu.Visible = False
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = False
            PersegiKuning.Visible = False
            PersegiMerah.Visible = False
            PersegiOren.Visible = False
            PersegiPink.Visible = False
            PersegiTosca.Visible = False
            PersegiUngu.Visible = False

            PAbu.Visible = False
            PBiru.Visible = False
            PCok.Visible = False
            PHij.Visible = False
            PKun.Visible = False
            PMer.Visible = False
            POren.Visible = False
            PPink.Visible = False
            PTos.Visible = True
            PUng.Visible = False

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False

        End If
        If ComboBox1.Text = "Poligon" And
      ComboBox2.Text = "Ungu" Then
            LingkaranAbu.Visible = False
            LingkaranBiru.Visible = False
            LingkaranCoklat.Visible = False
            LingkaranHijau.Visible = False
            LingkaranKuning.Visible = False
            LingkaranMerah.Visible = False
            LingkaranOrange.Visible = False
            LingkaranPink.Visible = False
            LingkaranTosca.Visible = False
            LingkaranUngu.Visible = False

            PPAbu.Visible = False
            PPBiru.Visible = False
            PPCoklat.Visible = False
            PPHijau.Visible = False
            PPKuning.Visible = False
            PPMerah.Visible = False
            PPOren.Visible = False
            PPPink.Visible = False
            PPTosca.Visible = False
            PPUngu.Visible = False

            PersegiAbu.Visible = False
            PersegiBiru.Visible = False
            PersegiCoklat.Visible = False
            PersegiHijau.Visible = False
            PersegiKuning.Visible = False
            PersegiMerah.Visible = False
            PersegiOren.Visible = False
            PersegiPink.Visible = False
            PersegiTosca.Visible = False
            PersegiUngu.Visible = False

            PAbu.Visible = False
            PBiru.Visible = False
            PCok.Visible = False
            PHij.Visible = False
            PKun.Visible = False
            PMer.Visible = False
            POren.Visible = False
            PPink.Visible = False
            PTos.Visible = False
            PUng.Visible = True

            SBiru.Visible = False
            SCok.Visible = False
            SHij.Visible = False
            Skun.Visible = False
            SMer.Visible = False
            SOren.Visible = False
            SPink.Visible = False
            STos.Visible = False
            SAbu.Visible = False
            SUng.Visible = False

        End If
    End Sub


Keterangan:
Listing ini digunakan untuk memunculkan PictureBox dan juga menyembunyikannya. Tujuannya agar saat teks pada ComboBox1 atau ComboBox2 diganti, maka gambar yang muncul juga berganti tanpa adanya penumpukan gambar. PictureBox akan muncul apabila visible-nya True, dan akan tersembunyi apabila visible-nya False.

Listing Kedua
Untuk membuat messagebox dengan style YesNo.

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim testMsg As String

        testMsg = MsgBox("Are You Sure?", vbYesNo + vbQuestion, "Attention!")

        If testMsg = vbYes Then
            Form1.Close()

        ElseIf testMsg = vbNo Then
            Return
        End If
    End Sub

Keterangan:
Listing ini memiliki makna jika kita memilih tombol Yes pada messagebox, maka form1 atau form induk akan ditutup, dengan kata lain, program tersebut ditutup. Namun jika kita memilih tombol No, maka kita akan tetap pada form ini.

Listing Ketiga
Digunakan untuk membuat tombol refresh atau clear.

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ComboBox1.Text = ""
        ComboBox2.Text = ""
        LingkaranAbu.Visible = False
        LingkaranBiru.Visible = False
        LingkaranCoklat.Visible = False
        LingkaranHijau.Visible = False
        LingkaranKuning.Visible = False
        LingkaranMerah.Visible = False
        LingkaranOrange.Visible = False
        LingkaranPink.Visible = False
        LingkaranTosca.Visible = False
        LingkaranUngu.Visible = False

        PPAbu.Visible = False
        PPBiru.Visible = False
        PPCoklat.Visible = False
        PPHijau.Visible = False
        PPKuning.Visible = False
        PPMerah.Visible = False
        PPOren.Visible = False
        PPPink.Visible = False
        PPTosca.Visible = False
        PPUngu.Visible = False

        PersegiAbu.Visible = False
        PersegiBiru.Visible = False
        PersegiCoklat.Visible = False
        PersegiHijau.Visible = False
        PersegiKuning.Visible = False
        PersegiMerah.Visible = False
        PersegiOren.Visible = False
        PersegiPink.Visible = False
        PersegiTosca.Visible = False
        PersegiUngu.Visible = False

        PAbu.Visible = False
        PBiru.Visible = False
        PCok.Visible = False
        PHij.Visible = False
        PKun.Visible = False
        PMer.Visible = False
        POren.Visible = False
        PPink.Visible = False
        PTos.Visible = False
        PUng.Visible = False

        SBiru.Visible = False
        SCok.Visible = False
        SHij.Visible = False
        Skun.Visible = False
        SMer.Visible = False
        SOren.Visible = False
        SPink.Visible = False
        STos.Visible = False
        SAbu.Visible = False
        SUng.Visible = False
    End Sub
End Class

Keterangan:
Listing ini digunakan untuk me-refresh halaman atau form yang sedang bekerja. Atau dengan kata lain, semua data sebelumnya dihilangkan.

Diposting oleh di

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)