Latihan 3 - Ganti warna form dengan comboBox - Visual Basic

Desain form seperti ini :

dan masukan script di bawah ini sesuai tempatnya :

Dim warna As String
Dim pesan As String



Private Sub Combo1_Click()
If Combo1.ListIndex = 0 Then
pesan = MsgBox("Apakah anda yakin ingin mengubah warna form menjadi " & Combo1.Text, vbOKCancel + vbQuestion, "Konfirmasi Warna")
If pesan = vbOK Then
Form1.BackColor = &H8000000F
warna = Combo1.Text
Form1.Caption = "Form Ganti Warna dengan Combo Box -- Warna : " & warna
Else
Cancel = True
End If

ElseIf Combo1.ListIndex = 1 Then
pesan = MsgBox("Apakah anda yakin ingin mengubah warna form menjadi " & Combo1.Text, vbOKCancel + vbQuestion, "Konfirmasi Warna")
If pesan = vbOK Then
Form1.BackColor = vbRed
warna = Combo1.Text
Form1.Caption = "Form Ganti Warna dengan Combo Box -- Warna : " & warna
Else
Cancel = True
End If

ElseIf Combo1.ListIndex = 2 Then
pesan = MsgBox("Apakah anda yakin ingin mengubah warna form menjadi " & Combo1.Text, vbOKCancel + vbQuestion, "Konfirmasi Warna")
If pesan = vbOK Then
Form1.BackColor = vbBlue
warna = Combo1.Text
Form1.Caption = "Form Ganti Warna dengan Combo Box -- Warna : " & warna
Else
Cancel = True
End If

ElseIf Combo1.ListIndex = 3 Then
pesan = MsgBox("Apakah anda yakin ingin mengubah warna form menjadi " & Combo1.Text, vbOKCancel + vbQuestion, "Konfirmasi Warna")
If pesan = vbOK Then
Form1.BackColor = vbGreen
warna = Combo1.Text
Form1.Caption = "Form Ganti Warna dengan Combo Box -- Warna : " & warna
Else
Cancel = True
End If

ElseIf Combo1.ListIndex = 4 Then
pesan = MsgBox("Apakah anda yakin ingin mengubah warna form menjadi " & Combo1.Text, vbOKCancel + vbQuestion, "Konfirmasi Warna")
If pesan = vbOK Then
Form1.BackColor = vbYellow
warna = Combo1.Text
Form1.Caption = "Form Ganti Warna dengan Combo Box -- Warna : " & warna
Else
Cancel = True
End If

ElseIf Combo1.ListIndex = 5 Then
pesan = MsgBox("Apakah anda yakin ingin mengubah warna form menjadi " & Combo1.Text, vbOKCancel + vbQuestion, "Konfirmasi Warna")
If pesan = vbOK Then
Form1.BackColor = &HFF00FF
warna = Combo1.Text
Form1.Caption = "Form Ganti Warna dengan Combo Box -- Warna : " & warna
Else
Cancel = True
End If

End If
End Sub



Private Sub Form_Load()
warna = "Default"
Form1.Caption = "Form Ganti Warna dengan Combo Box -- Warna : " & warna

Combo1.AddItem "Default"
Combo1.AddItem "Merah"
Combo1.AddItem "Biru"
Combo1.AddItem "Hijau"
Combo1.AddItem "Kuning"
Combo1.AddItem "Ungu"
End Sub