TUTORIAL
PEMBUATAN PROGRAM
BANGUN
DATAR
Pada pembuatan form
bangun datar ini, program aplikasi ini terdiri dari 2 form. Kami akan mencoba
menjelaskan menjelaskan tiap form yang telah kami buat.
1. Buka
aplikasi visual basic
2. Open new project lalu klik ok
3. Buatlah
form1
buat form ini dengan
mengawali aplikasi ini dengan tulisan ’’Welcome to Prgram Bidang ’’ tulisan ini
dibuat menggunakan label, kemudian tulisan pada kata “mulai” menggunakan format
button, yang dibuat dengan menggunakan opening ke form selanjutnya.
Berikut
adalah listing form 1
Public Class Form1
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
Form2.Show()
Me.Hide()
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button2.Click
Close()
End Sub
End Class
4. Buatlah
form2 lalu ikuti seperti gambar dibawah ini. Ikuti label yang tertera dan
juga button yang tertera. Untuk membuat tampilan dan warna sesuai agar
bisa dimunculkan ikuti listing berikut
berikut adalah listing dari form2
Public Class Form2
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
If
ComboBox1.Text = "Lingkaran" And
ComboBox2.Text = "Abu-Abu" Then
LingkaranAbu.Visible = True
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
SAbu.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
SUng.Visible = False
End If
If
ComboBox1.Text = "Lingkaran" And
ComboBox2.Text = "Biru" Then
LingkaranAbu.Visible = False
LingkaranBiru.Visible = True
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
SAbu.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
SUng.Visible = False
End If
If
ComboBox1.Text = "Lingkaran" And
ComboBox2.Text = "Coklat" Then
LingkaranAbu.Visible = False
LingkaranBiru.Visible = False
LingkaranCoklat.Visible = True
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
SAbu.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
SUng.Visible = False
End If
If
ComboBox1.Text = "Lingkaran" And
ComboBox2.Text = "Hijau" Then
LingkaranAbu.Visible = False
LingkaranBiru.Visible = False
LingkaranCoklat.Visible = False
LingkaranHijau.Visible = True
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
SAbu.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
SUng.Visible = False
End If
If
ComboBox1.Text = "Lingkaran" And
ComboBox2.Text = "Merah" Then
LingkaranAbu.Visible = True
LingkaranBiru.Visible = False
LingkaranCoklat.Visible = False
LingkaranHijau.Visible = False
LingkaranKuning.Visible = False
LingkaranMerah.Visible = True
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
SAbu.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
SUng.Visible = False
End If
If
ComboBox1.Text = "Lingkaran" And
ComboBox2.Text = "Kuning" Then
LingkaranAbu.Visible = True
LingkaranBiru.Visible = False
LingkaranCoklat.Visible = False
LingkaranHijau.Visible = False
LingkaranKuning.Visible = True
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
SAbu.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
SUng.Visible = False
End If
If
ComboBox1.Text = "Lingkaran" 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 = True
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
SAbu.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
SUng.Visible = False
End If
If
ComboBox1.Text = "Lingkaran" 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 = True
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
SAbu.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
SUng.Visible = False
End If
If
ComboBox1.Text = "Lingkaran" 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 = True
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
SAbu.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
SUng.Visible = False
End If
If
ComboBox1.Text = "Lingkaran" 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 = True
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
SAbu.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
SUng.Visible = False
End If
If
ComboBox1.Text = "Segitiga" 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 = 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
SUng.Visible = False
SAbu.Visible = True
End If
If
ComboBox1.Text = "Segitiga" 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 = 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
SCok.Visible = False
SHij.Visible = False
Skun.Visible = False
SMer.Visible = False
SOren.Visible = False
SPink.Visible = False
STos.Visible = False
SUng.Visible = False
SAbu.Visible = False
SBiru.Visible = True
End If
If
ComboBox1.Text = "Segitiga" 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 = 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
SHij.Visible = False
Skun.Visible = False
SMer.Visible = False
SOren.Visible = False
SPink.Visible = False
STos.Visible = False
SUng.Visible = False
SAbu.Visible = False
SCok.Visible = True
End If
If
ComboBox1.Text = "Segitiga" 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 = 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
Skun.Visible = False
SMer.Visible = False
SOren.Visible = False
SPink.Visible = False
STos.Visible = False
SUng.Visible = False
SAbu.Visible = False
SHij.Visible = True
End If
If
ComboBox1.Text = "Segitiga" 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 = 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
SMer.Visible = False
SOren.Visible = False
SPink.Visible = False
STos.Visible = False
SUng.Visible = False
SAbu.Visible = False
Skun.Visible = True
End If
If
ComboBox1.Text = "Segitiga" 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 = 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
SOren.Visible = False
SPink.Visible = False
STos.Visible = False
SUng.Visible = False
SAbu.Visible = False
SMer.Visible = True
End If
If
ComboBox1.Text = "Segitiga" 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 = 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
STos.Visible = False
SUng.Visible = False
SAbu.Visible = False
SPink.Visible = True
End If
If
ComboBox1.Text = "Segitiga" 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 = 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
SUng.Visible = False
SAbu.Visible = False
STos.Visible = True
End If
If
ComboBox1.Text = "Segitiga" 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 = 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 = True
SPink.Visible = False
STos.Visible = False
SUng.Visible = False
SAbu.Visible = False
End If
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
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
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
Tidak ada komentar:
Posting Komentar