Latihan 2 - Ganti Warna Form - Visual Basic

Buat desain tampilan seperti ni :

Kemudian masukan script di bawah ini sesuai dengan warnanya :

Dim warna As String
Dim pesan As String

Private Sub Command1_Click()
warna = "Default"
pesan = MsgBox("Apakah anda ingin mengganti warna default " & warna & " ??", vbOKCancel + vbQuestion, "KOnfirmasi Ganti Warna")
If pesan = vbOK Then
Form1.Caption = "Ganti Warna Form : " & warna
Form1.BackColor = &H8000000F
Else
Cancel = True
End If
End Sub



Private Sub Command2_Click()
warna = "Merah"
pesan = MsgBox("Apakah anda ingin mengganti warna " & warna & " ??", vbOKCancel + vbQuestion, "KOnfirmasi Ganti Warna")
If pesan = vbOK Then
Form1.Caption = "Ganti Warna Form : " & warna
Form1.BackColor = vbRed
Else
Cancel = True
End If
End Sub

Private Sub Command3_Click()
warna = "Hijau"
pesan = MsgBox("Apakah anda ingin mengganti warna " & warna & " ??", vbOKCancel + vbQuestion, "KOnfirmasi Ganti Warna")
If pesan = vbOK Then
Form1.Caption = "Ganti Warna Form : " & warna
Form1.BackColor = vbGreen
Else
Cancel = True
End If
End Sub

Private Sub Command4_Click()
warna = "Kuning"
pesan = MsgBox("Apakah anda ingin mengganti warna " & warna & " ??", vbOKCancel + vbQuestion, "KOnfirmasi Ganti Warna")
If pesan = vbOK Then
Form1.Caption = "Ganti Warna Form : " & warna
Form1.BackColor = vbYellow
Else
Cancel = True
End If
End Sub

Private Sub Command5_Click()
warna = "Ungu"
pesan = MsgBox("Apakah anda ingin mengganti warna " & warna & " ??", vbOKCancel + vbQuestion, "KOnfirmasi Ganti Warna")
If pesan = vbOK Then
Form1.Caption = "Ganti Warna Form : " & warna
Form1.BackColor = &HFF00FF
Else
Cancel = True
End If
End Sub

Private Sub Command6_Click()
warna = "Biru"
pesan = MsgBox("Apakah anda ingin mengganti warna " & warna & " ??", vbOKCancel + vbQuestion, "KOnfirmasi Ganti Warna")
If pesan = vbOK Then
Form1.Caption = "Ganti Warna Form : " & warna
Form1.BackColor = vbBlue
Else
Cancel = True
End If
End Sub

Private Sub Form_Load()
warna = "Default"
Form1.Caption = "Ganti Warna Form : " & warna
End Sub