(no subject)

[all_t0_blame]

Option Explicit

Private Sub cmdDone_Click()
Unload Me
End Sub
Private Sub Form_Load()
optblack.Value = False
optblue.Value = False
optyellow.Value = False
optgreen.Value = False
optmagenta.Value = False
optred.Value = False
optwhite.Value = False
optcyan.Value = False
End Sub

Private Sub optblack_Click()
shpdoor.BackColor = vbBlack
End Sub

Private Sub optblue_Click()
frmhousecolor.BackColor = vbBlue

frahouse.BackColor = vbBlue
frahouse.ForeColor = vbWhite

frasun.BackColor = vbBlue
frasun.ForeColor = vbWhite

frasky.BackColor = vbBlue
frasky.ForeColor = vbWhite

fradoor.BackColor = vbBlue
fradoor.ForeColor = vbWhite

optgreen.BackColor = vbBlue
optgreen.ForeColor = vbWhite

optmagenta.BackColor = vbBlue
optmagenta.ForeColor = vbWhite

optred.BackColor = vbBlue
optred.ForeColor = vbWhite

optyellow.BackColor = vbBlue
optyellow.ForeColor = vbWhite

optblue.BackColor = vbBlue
optblue.ForeColor = vbWhite

optcyan.BackColor = vbBlue
optcyan.ForeColor = vbWhite

optblack.BackColor = vbBlue
optblack.ForeColor = vbWhite

optwhite.BackColor = vbBlue
optwhite.ForeColor = vbWhite
End Sub

Private Sub optcyan_Click()
frmhousecolor.BackColor = vbCyan

frahouse.BackColor = vbCyan
frahouse.ForeColor = vbBlack

frasun.BackColor = vbCyan
frasun.ForeColor = vbBlack

frasky.BackColor = vbCyan
frasky.ForeColor = vbBlack

fradoor.BackColor = vbCyan
fradoor.ForeColor = vbBlack

optgreen.BackColor = vbCyan
optgreen.ForeColor = vbBlack

optmagenta.BackColor = vbCyan
optmagenta.ForeColor = vbBlack

optred.BackColor = vbCyan
optred.ForeColor = vbBlack

optyellow.BackColor = vbCyan
optyellow.ForeColor = vbBlack

optblue.BackColor = vbCyan
optblue.ForeColor = vbBlack

optcyan.BackColor = vbCyan
optcyan.ForeColor = vbBlack

optblack.BackColor = vbCyan
optblack.ForeColor = vbBlack

optwhite.BackColor = vbCyan
optwhite.ForeColor = vbBlack
End Sub

Private Sub optgreen_Click()
shphouse.BackColor = vbGreen
End Sub
Private Sub optmagenta_Click()
shphouse.BackColor = vbMagenta
End Sub
Private Sub optred_Click()
shpsun.BackColor = vbRed
End Sub

Private Sub optwhite_Click()
shpdoor.BackColor = vbWhite
End Sub

Private Sub optyellow_Click()
shpsun.BackColor = vbYellow
End Sub