Mewarnai Form, Frame dan Option

Source Code:

Private Sub Option1_Click()
'perintah untuk memberi warna merah pada form
Me.BackColor = vbRed
'perintah untuk memberi warna merah pada frame
Frame1.BackColor = vbRed
'perintah untuk memberi warna merah pada option
Option1.BackColor = vbRed
Option2.BackColor = vbRed
Option3.BackColor = vbRed
End Sub

Private Sub Option2_Click()
'perintah untuk memberi warna biru pada form
Me.BackColor = vbBlue
'perintah untuk memberi warna biru pada frame
Frame1.BackColor = vbBlue
'perintah untuk memberi warna biru pada option
Option1.BackColor = vbBlue
Option2.BackColor = vbBlue
Option3.BackColor = vbBlue
End Sub

Private Sub Option3_Click()
'perintah untuk memberi warna hijau pada form
Me.BackColor = vbGreen
'perintah untuk memberi warna hijau pada frame
Frame1.BackColor = vbGreen
'perintah untuk memberi warna hijau pada option
Option1.BackColor = vbGreen
Option2.BackColor = vbGreen
Option3.BackColor = vbGreen

End Sub


Download Fille